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")