gcc/testsuite/gfortran.dg/endfile_5.f90

   1 ! { dg-do run }
   2 ! PR107031 Check that endfile truncates at end of record 5.
   3 program test_truncate
   4     integer :: num_rec, tmp, i, nr, j
   5     open(10, file="in.dat", action='readwrite')
   6
   7     do i=1,10
   8       write(10, *) i
   9     end do
  10
  11     rewind (10)
  12
  13     num_rec = 5
  14     i = 1
  15     ioerr = 0
  16     do while (i <= num_rec .and. ioerr == 0)
  17         read(10, *, iostat=ioerr) tmp
  18         i = i + 1
  19     enddo
  20     endfile(10)
  21     rewind (10)
  22     i = 0
  23     ioerr = 0
  24     do while (i <= num_rec + 1 .and. ioerr == 0)
  25       read(10, *, iostat=ioerr) j
  26       i = i + 1
  27     end do
  28     close(10, status='delete')
  29     if (i - 1 /= 5) stop 1
  30 end program test_truncate