gcc/testsuite/gfortran.dg/eor_1.f90

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