From: Jerry DeLisle Date: Fri, 21 Nov 2008 04:35:17 +0000 (+0000) Subject: re PR fortran/37472 (bad output on default-format write of double in common block... X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=941bcbde52dcef1efc4184d83832a1cb0787c2e4;p=platform%2Fupstream%2Fgcc.git re PR fortran/37472 (bad output on default-format write of double in common block with -m64) 2008-11-20 Jerry DeLisle PR libfortran/37472 * gfortran.dg/namelist_print_1.f: Update test. From-SVN: r142080 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 49f4a87..b0901eb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-20 Jerry DeLisle + + PR libfortran/37472 + * gfortran.dg/namelist_print_1.f: Update test. + 2008-11-20 Andreas Krebbel * gcc.dg/sync-2.c: Add type cast to avoid folding. diff --git a/gcc/testsuite/gfortran.dg/namelist_print_1.f b/gcc/testsuite/gfortran.dg/namelist_print_1.f index feebd00..abc8aec 100644 --- a/gcc/testsuite/gfortran.dg/namelist_print_1.f +++ b/gcc/testsuite/gfortran.dg/namelist_print_1.f @@ -9,5 +9,5 @@ namelist /mynml/ x x = 1 ! ( dg-output "^" } - print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.00000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } + print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.0000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } end