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