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