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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141893 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 78a345a..b831046 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/namelist_57.f90 b/gcc/testsuite/gfortran.dg/namelist_57.f90
new file mode 100644 (file)
index 0000000..7db4c4b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_57.f90
@@ -0,0 +1,12 @@
+! { 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 

diff --git a/gcc/testsuite/gfortran.dg/namelist_print_1.f b/gcc/testsuite/gfortran.dg/namelist_print_1.f
index 5c0e775..feebd00 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)" }
+      print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.00000000    ,(\n|\r\n|\r) /(\n|\r\n|\r)" }
       end