gcc/testsuite/gfortran.dg/eor_1.f90

   1 ! { dg-do run }
   2 ! PR 19451: The test for advance='NO' with eor used to be reversed.
   3 program main
   4   character*2 c
   5   open(12, status='SCRATCH')
   6   write(12, '(A)') '123', '456'
   7   rewind(12)
   8   read(12, '(A2)', advance='NO', eor=100) c
   9 100 continue
  10 end program main