diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-17 00:40:23 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-17 00:40:23 +0000 |
| commit | 006e951ca2abc5102680c5a77f4541558a33db18 (patch) | |
| tree | 20fb715745b5082d3fcbb5978304b5aa743671ec | |
| parent | a7e889d19efd126cb20dec9ef12a31657f2aaf61 (diff) | |
| download | ppe42-gcc-006e951ca2abc5102680c5a77f4541558a33db18.tar.gz ppe42-gcc-006e951ca2abc5102680c5a77f4541558a33db18.zip | |
2006-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27575
* gfortran.dg/read_eof_4.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113838 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 |
