From 941bcbde52dcef1efc4184d83832a1cb0787c2e4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 21 Nov 2008 04:35:17 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/namelist_print_1.f | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 49f4a87c472..b0901ebed5a 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 feebd0053bf..abc8aec6cdc 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 -- 2.30.2