| ! { dg-do run } | |
| ! PR34560 I/O internal read: END expected, but no failure | |
| program main | |
| character(len=2) :: line | |
| character(len=1) :: a(3) | |
| a = "x" | |
| line = 'ab' | |
| read (line,'(A)',END=99) a | |
| STOP 1 | |
| 99 continue | |
| if (any(a /= ['a','x','x'])) STOP 2 | |
| end program main |