1! { dg-do run }
2! PR25550 file data corrupted after reading end of file.
3! Derived from example given in PR from Dale Ranta.
4! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
5      integer data
6      data=-1
7      open(unit=11,status='scratch',form='unformatted')
8      write(11)data
9      read(11,end=1000 )data
10      STOP 1
11 1000 continue
12      rewind (11)
13      read(11)data
14 1001 continue
15      if(data.ne.-1) STOP 1
16      end
17
18
19