re PR libfortran/37294 (Namelist I/O to array character internal units)

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

	PR libfortran/37294
	* gfortran.dg/namelist_57.f90: New test.
	* gfortran.dg/namelist_print_1.f: Adjust test conditions.

From-SVN: r141893

gcc/testsuite/ChangeLog

+2008-11-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/37294
+	* gfortran.dg/namelist_57.f90: New test.
+	* gfortran.dg/namelist_print_1.f: Adjust test conditions.
+
 2008-11-15  Paul Thomas  <pault@gcc.gnu.org>
 
         PR fortran/37926

gcc/testsuite/gfortran.dg/namelist_57.f90

+! { dg-do run }
+! PR37294 Namelist I/O to array character internal units.
+! Test case from adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+  character(30) :: line(3)
+  namelist /stuff/ n
+  n = 123
+  line = ""
+  write(line,nml=stuff)
+  if (line(1) .ne. "&STUFF") call abort
+  if (line(2) .ne. " N=        123,") call abort
+  if (line(3) .ne. " /") call abort
+  end 

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)" }
+      print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.00000000    ,(\n|\r\n|\r) /(\n|\r\n|\r)" }
       end