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