blob: 94fec99df7cb90ea0fd37643610526b9630fe987 (
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
|
! { dg-do run { target fd_truncate } }
! PR 26499 : Positioning of EOF after write and rewind.
! Test case from Dale Ranta in PR.
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
program test
dimension idata(100)
idata = -42
open(unit=11,form='unformatted')
write(11)idata
write(11)idata
read(11,end= 1000 )idata
call abort()
1000 continue
rewind 11
write(11)idata
close(11,status='keep')
open(unit=11,form='unformatted')
rewind 11
read(11)idata
read(11, end=250)idata
call abort()
250 continue
close(11,status='delete')
end
|
