diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2009-07-20 02:26:20 +0300 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-07-19 23:26:20 +0000 |
| commit | d2b00a893b7700688f7468e7549ada7806b4478d (patch) | |
| tree | abf8134d891bd492234b2fd90ee6c15285f42f7a /gcc | |
| parent | eab09a51ff806bec65eed700c1e07b7496d72f98 (diff) | |
| download | gcc-d2b00a893b7700688f7468e7549ada7806b4478d.zip gcc-d2b00a893b7700688f7468e7549ada7806b4478d.tar.gz gcc-d2b00a893b7700688f7468e7549ada7806b4478d.tar.bz2 | |
re PR fortran/40714 (Fortran runtime error: Invalid argument)
2009-07-19 Janne Blomqvist <jb@gcc.gnu.org>
Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40714
* gfortran.dg/eof_3.f90: New test.
Co-Authored-By: Jerry DeLisle <jvdelisle@gcc.gnu.org>
From-SVN: r149797
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/eof_3.f90 | 8 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a9cb57b..187dae1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-07-19 Janne Blomqvist <jb@gcc.gnu.org> + Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/40714 + * gfortran.dg/eof_3.f90: New test. + 2009-07-18 Steven G. Kargl <kargl@gcc.gnu.org> 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 0000000..83d6529 --- /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 |