gcc/testsuite/gfortran.dg/write_back.f

   1 ! { dg-do run }
   2 ! PR 26499 : Positioning of EOF after backspaces and write.
   3 ! This test verifies that the last write truncates the file.
   4 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
   5       program test
   6       integer at,eof
   7       dimension idata(5)
   8       open(unit=11,form='unformatted')
   9       write(11)idata
  10       write(11)idata
  11       write(11)idata
  12       backspace(11)
  13       backspace(11)
  14       write(11)idata
  15       close(11, status="keep")
  16       open(unit=11,form='unformatted')
  17       rewind(11)
  18       read(11)idata
  19       read(11)idata
  20       read(11, end=250)idata
  21       call abort()
  22  250  continue
  23       close(11, status="delete")
  24       end
  25