gcc/testsuite/gfortran.dg/read_eof_4.f90

   1 ! { dg-do run }
   2 ! PR 27575 : This test checks the error checking for end of file condition.
   3 ! Derived from test case in PR.
   4 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
   5       program test
   6       integer i1,i2,i3
   7       open(unit=11,form='unformatted')
   8       write(11)i1, i2
   9       close(11,status='keep')
  10       open(unit=11,form='unformatted')
  11       read(11, eND=100) i1, i2, i3
  12       call abort()
  13  100  read(11, end=110) i3
  14       call abort()
  15  110  close(11,status='delete')
  16       end