From ada22a829973fbe063882e60863f7a28bfe76d1b Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 17 May 2006 00:40:23 +0000 Subject: [PATCH] re PR libfortran/27575 (gfortran - does not generate error when trying to read too much data) 2006-05-16 Jerry DeLisle PR libgfortran/27575 * gfortran.dg/read_eof_4.f90: New test. From-SVN: r113838 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/read_eof_4.f90 | 16 ++++++++++++++++ 2 files changed, 21 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/read_eof_4.f90 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 + + PR libgfortran/27575 + * gfortran.dg/read_eof_4.f90: New test. + 2006-05-16 Richard Guenther 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 . + 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 -- 2.30.2