1! { dg-do run }
2! PR34560 I/O internal read: END expected, but no failure
3program main
4  character(len=2) :: line
5  character(len=1) :: a(3)
6  a = "x"
7  line = 'ab'
8  read (line,'(A)',END=99) a
9  call abort
10  99 continue
11  if (any(a /= ['a','x','x'])) call abort
12end program main
13