re PR libfortran/31099 (Runtime error on legal code using RECL)

2007-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31099
	* gfortran.dg/unformatted_recl.f90: Update test.

From-SVN: r122975

gcc/testsuite/ChangeLog

+2007-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/31099
+	* gfortran.dg/unformatted_recl.f90: Update test.
+
 2007-03-15  Zdenek Dvorak  <dvorakz@suse.cz>
 
 	* gcc.dg/tree-ssa/prefetch-5.c: New test.

gcc/testsuite/gfortran.dg/unformatted_recl_1.f90

@@ -10,8 +10,13 @@ program test
   write(10) a,b
   write(10) b, a
   rewind(10)
+  write(10) a,b
+  write(10) a,b
+  write(10) a,b
+  write(10) b, a
   b=0
   a=0
+  rewind(10)
   read(10) a, b
   read(10) a, b
   read(10) a, b