1 ! { dg
-do run
{ target fd_truncate
} }
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
>.
9 open
(unit
=11,form
='unformatted')
16 close
(11, status
="keep")
17 open
(unit
=11,form
='unformatted')
21 read(11, end=250)idata
24 close
(11, status
="delete")