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