diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-17 00:40:23 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-17 00:40:23 +0000 |
| commit | ada22a829973fbe063882e60863f7a28bfe76d1b (patch) | |
| tree | 20fb715745b5082d3fcbb5978304b5aa743671ec /gcc | |
| parent | cacf2b9638c2b9c32f03da60ca21d5a061927de7 (diff) | |
| download | gcc-ada22a829973fbe063882e60863f7a28bfe76d1b.zip gcc-ada22a829973fbe063882e60863f7a28bfe76d1b.tar.gz gcc-ada22a829973fbe063882e60863f7a28bfe76d1b.tar.bz2 | |
re PR libfortran/27575 (gfortran - does not generate error when trying to read too much data)
2006-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27575
* gfortran.dg/read_eof_4.f90: New test.
From-SVN: r113838
Diffstat (limited to 'gcc')
| -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 ec6b784..f81e54d 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 0000000..b8ca5a7 --- /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 |