1! { dg-do run } 2! PR 40334 backspace regression 3program backspace_11 4 implicit none 5 character(len=5) :: str 6 open(10, access='sequential', status='scratch') 7 write(10,'(A)')'HELLO' 8 rewind(10) 9 10 do 11 read(10,'(A)',end=1) str 12 enddo 131 backspace 10 14 !the file pointer is now at EOF 15 16 read(10,*,end=2) str 17 call abort 182 backspace 10 19 !the file pointer is now at EOF 20 21 read(10,'(A)',end=3) str 22 call abort 233 continue 24end program backspace_11 25