1! { dg-do run }
2! PR25835 Check that reading from a file that is at end-of-file does not
3! segfault or give error.  Test case derived from example in PR from Dale Ranta.
4! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
5       integer data(2045) ! Exceed internal buffer size
6       data=-1
7       open(unit=11,status='scratch', form='unformatted')
8       write(11)data
9       read(11,end=        1000 )data
10       call abort()
11 1000  continue
12       backspace 11
13       backspace 11
14       data = 0
15       read(11)data
16       if (.not. all(data == -1)) call abort()
17       read(11,end=        1002 )data
18       call abort()
19 1002  continue
20       close(11)
21       end
22