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

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

	PR libfortran/37472
	* gfortran.dg/namelist_print_1.f: Update test.

From-SVN: r142080

gcc/testsuite/ChangeLog

+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.

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