gcc/testsuite/gfortran.dg/read_x_past.f

   1 ! { dg-do run { target fd_truncate } }
   2 ! { dg-options -w }
   3 ! PR 26661 : Test reading X's past file end with no LF or CR.
   4 ! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag.
   5 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
   6       implicit none
   7       character(3) a(4)
   8       integer i
   9       open (10)
  10  10   format(A,$)  ! This is not pedantic
  11       write(10,10)' abc def ghi jkl'
  12       rewind(10)
  13       read(10,20)(a(i),i=1,4)
  14       if (a(4).ne."jkl") call abort()
  15  20   format(1x,a3,1x,a3,1x,a3,1x,a3,10x)
  16       close(10, status="delete")
  17       end