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
23 close
(11, status
="delete")