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>.
8 open(unit=11,form='unformatted')
15 close(11, status="keep")
16 open(unit=11,form='unformatted')
20 read(11, end=250)idata