gcc/testsuite/gfortran.dg/dev_null.f90

   1 ! { dg-do run }
   2 ! pr19478 read from /dev/null
   3 ! Thomas.Koenig@online.de
   4       character*20 foo
   5       open(10,file="/dev/null")
   6       write(10,'(A)') "Hello"
   7       rewind(10)
   8       read(10,'(A)',end=100) foo
   9       call abort
  10  100  continue
  11       end