1! { dg-do run }
2! PR 26499  Test write with rewind sequences to make sure buffering and
3! end-of-file conditions are handled correctly.  Derived from test case by Dale
4! Ranta.  Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
5      program test
6      dimension idata(1011)
7      idata = -42
8      open(unit=11,form='unformatted')
9        idata(1)   = -705
10        idata(  1011)   = -706
11       write(11)idata
12        idata(1)   = -706
13        idata(  1011)   = -707
14       write(11)idata
15        idata(1)   = -707
16        idata(  1011)   = -708
17       write(11)idata
18       read(11,end=        1000 )idata
19       STOP 1
20 1000  continue
21       rewind 11
22       read(11,end=        1001 )idata
23        if(idata(1).ne. -705.or.idata(  1011).ne. -706)STOP 2
24 1001  continue
25       close(11,status='keep')
26      open(unit=11,form='unformatted')
27      rewind 11
28      read(11)idata
29      if(idata(1).ne.-705)then
30      STOP 3
31      endif
32      read(11)idata
33      if(idata(1).ne.-706)then
34      STOP 4
35      endif
36      read(11)idata
37      if(idata(1).ne.-707)then
38      STOP 5
39      endif
40      close(11,status='delete')
41      stop
42      end
43
44
45