gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90

   1 ! { dg-do run }
   2 ! PR 30056 - exceeding the record length was misrepresented as an EOF
   3 !            on read and ignored on write
   4       program main
   5       integer i,j
   6       open (10, form="unformatted", access="direct", recl=4)
   7       write (10, rec=1, err=10) 1,2
   8       STOP 1
   9  10   continue
  10       read (10,  rec=1, err=20) i, j
  11       STOP 2
  12  20   continue
  13       close (10, status="delete")
  14       end