1 ! { dg-do run { target fd_truncate } }
2 ! PR 26499 : Positioning of EOF after write and rewind.
3 ! Test case from Dale Ranta in PR.
4 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
8 open(unit=11,form='unformatted')
11 read(11,end= 1000 )idata
16 close(11,status='keep')
17 open(unit=11,form='unformatted')
20 read(11, end=250)idata
23 close(11,status='delete')