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>.
5      program test
6      dimension idata(100)
7      idata = -42
8      open(unit=11,form='unformatted')
9      write(11)idata
10      write(11)idata
11      read(11,end=        1000 )idata
12      call abort()
13 1000 continue
14      rewind 11
15      write(11)idata
16      close(11,status='keep')
17      open(unit=11,form='unformatted')
18      rewind 11
19      read(11)idata
20      read(11, end=250)idata
21      call abort()
22 250  continue
23      close(11,status='delete')
24      end
25