re PR fortran/37472 (bad output on default-format write of double in common block...

2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 49f4a87c47242b2eb3db82cfe73be62989a9f2ac..b0901ebed5a16ce670708f962dc48e0f2489b2a5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/37472
+       * gfortran.dg/namelist_print_1.f: Update test.
+
 2008-11-20  Andreas Krebbel  <krebbel1@de.ibm.com>
 
        * 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 feebd0053bfc56823aee5da8c9f0a6615deec88c..abc8aec6cdc246977ad59c7ce6e7348e01416bbe 100644 (file)
--- 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