diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_eof_4.f90 | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ec6b784ffd1..f81e54d206b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/27575 + * gfortran.dg/read_eof_4.f90: New test. + 2006-05-16 Richard Guenther <rguenther@suse.de> PR tree-optimization/22303 diff --git a/gcc/testsuite/gfortran.dg/read_eof_4.f90 b/gcc/testsuite/gfortran.dg/read_eof_4.f90 new file mode 100644 index 00000000000..b8ca5a78e57 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_eof_4.f90 @@ -0,0 +1,16 @@ +! { dg-do run } +! PR 27575 : This test checks the error checking for end of file condition. +! Derived from test case in PR. +! Submitted by Jerry DeLisle <jvdelisle@verizon.net>. + program test + integer i1,i2,i3 + open(unit=11,form='unformatted') + write(11)i1, i2 + close(11,status='keep') + open(unit=11,form='unformatted') + read(11, eND=100) i1, i2, i3 + call abort() + 100 read(11, end=110) i3 + call abort() + 110 close(11,status='delete') + end |
