gcc/testsuite/gfortran.dg/eof_1.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! Program to test for proper EOF errors when reading past the end of a file.
   3 ! We used to get this wrong when a formatted read followed a list formatted
   4 ! read.
   5 program eof_1
   6   character(len=5) :: s
   7
   8   open (unit=11, status="SCRATCH")
   9   write (11, '(a)') "Hello"
  10   rewind(11)
  11   read(11, *) s
  12   if (s .ne. "Hello") call abort
  13   read(11, '(a5)', end=10) s
  14   call abort
  15 10 continue
  16   close (11)
  17 end
  18