From: Jerry DeLisle Date: Fri, 16 Mar 2007 01:57:16 +0000 (+0000) Subject: re PR libfortran/31099 (Runtime error on legal code using RECL) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=94fe33db53d3073d4bd3e4ee8d49b57db6a3d7ad;p=gcc.git 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 --- 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