gcc/testsuite/gfortran.dg/dev_null.f90

   1 ! { dg-do run }
   2 ! This test currently only runs on systems where using ftruncate on
   3 !   /dev/null fails (errno set to EINVAL). See PR 21593 for details.
   4 !
   5 ! pr19478 read from /dev/null
   6 ! Thomas.Koenig@online.de
   7       character*20 foo
   8       open(10,file="/dev/null")
   9       write(10,'(A)') "Hello"
  10       rewind(10)
  11       read(10,'(A)',end=100) foo
  12       call abort
  13  100  continue
  14       end