gcc/testsuite/gfortran.dg/read_eof_4.f90

   1 ! { dg-do run }
   2 ! PR 27575 and PR 30009: This test checks the error checking for end
   3 ! of file condition.
   4 ! Derived from test case in PR.
   5 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>, modified by
   6 ! Thomas Koenig <Thomas.Koenig@online.de>
   7
   8       program test
   9       integer i1,i2,i3
  10       open(unit=11,form='unformatted')
  11       write (11) 1, 2
  12       write (11) 3, 4
  13       close(11,status='keep')
  14
  15       open(unit=11,form='unformatted')
  16
  17       read(11, ERR=100) i1, i2, i3
  18       STOP 1
  19   100 continue
  20       if (i1 /= 1 .or. i2 /= 2) STOP 1
  21
  22       read(11, ERR=110) i1, i2, i3
  23       STOP 2
  24   110 continue
  25       if (i1 /= 3 .or. i2 /= 4) STOP 2
  26
  27       read(11, end=120) i3
  28       STOP 3
  29  120  close(11,status='delete')
  30       end