! { dg-do run }
! PR25835 Check that reading from a file that is at end-of-file does not
! segfault or give error. Test case derived from example in PR from Dale Ranta.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer data(2045) ! Exceed internal buffer size
data=-1
open(unit=11,status='scratch', form='unformatted')
write(11)data
read(11,end= 1000 )data
call abort()
1000 continue
backspace 11
backspace 11
data = 0
read(11)data
if (.not. all(data == -1)) call abort()
read(11,end= 1002 )data
call abort()
1002 continue
close(11)
end