From 94fe33db53d3073d4bd3e4ee8d49b57db6a3d7ad Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 16 Mar 2007 01:57:16 +0000 Subject: [PATCH] re PR libfortran/31099 (Runtime error on legal code using RECL) 2007-03-15 Jerry DeLisle PR libgfortran/31099 * gfortran.dg/unformatted_recl.f90: Update test. From-SVN: r122975 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8e8b8e70884..63e7ef5daa7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-03-15 Jerry DeLisle + + PR libgfortran/31099 + * gfortran.dg/unformatted_recl.f90: Update test. + 2007-03-15 Zdenek Dvorak * gcc.dg/tree-ssa/prefetch-5.c: New test. diff --git a/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 b/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 index ef1d75470d3..e9aeebbb999 100644 --- a/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 +++ b/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 -- 2.30.2