gcc/testsuite/gfortran.dg/eor_handling_1.f90

   1 ! { dg-do run }
   2 ! PR 17992:  Reading an empty file should yield zero with pad='YES'
   3 ! (which is the default).
   4 ! Test case supplied by milan@cmm.ki.si.
   5 program main
   6   open(77,status='scratch')
   7   write(77,'(A)') '',''
   8   rewind(77)
   9   i = 42
  10   j = 42
  11   read(77,'(/2i2)') i,j
  12   if (i /= 0 .or. j /= 0) call abort
  13   close(77)
  14 end program main