From d2b00a893b7700688f7468e7549ada7806b4478d Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Mon, 20 Jul 2009 02:26:20 +0300 Subject: [PATCH] re PR fortran/40714 (Fortran runtime error: Invalid argument) 2009-07-19 Janne Blomqvist Jerry DeLisle PR libfortran/40714 * gfortran.dg/eof_3.f90: New test. Co-Authored-By: Jerry DeLisle From-SVN: r149797 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/eof_3.f90 | 8 ++++++++ 2 files changed, 14 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/eof_3.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a9cb57bc1721..187dae19618e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-07-19 Janne Blomqvist + Jerry DeLisle + + PR libfortran/40714 + * gfortran.dg/eof_3.f90: New test. + 2009-07-18 Steven G. Kargl PR fortran/40727 diff --git a/gcc/testsuite/gfortran.dg/eof_3.f90 b/gcc/testsuite/gfortran.dg/eof_3.f90 new file mode 100644 index 000000000000..83d652912bc9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/eof_3.f90 @@ -0,0 +1,8 @@ +! { dg-do run } +! PR40714 A read hitting EOF should leave the unit structure in a correct state +program test +open(unit=32,status="scratch",access="sequential",form="unformatted") +read(32,end=100) +100 continue +write (32) +end program test