! { dg-do run } | |
! PR 40334 backspace regression | |
program backspace_11 | |
implicit none | |
character(len=5) :: str | |
open(10, access='sequential', status='scratch') | |
write(10,'(A)')'HELLO' | |
rewind(10) | |
do | |
read(10,'(A)',end=1) str | |
enddo | |
1 backspace 10 | |
!the file pointer is now at EOF | |
read(10,*,end=2) str | |
call abort | |
2 backspace 10 | |
!the file pointer is now at EOF | |
read(10,'(A)',end=3) str | |
call abort | |
3 continue | |
end program backspace_11 |