1 2 3 4 5 6 7 8 9
! { dg-do compile } ! ! Cf. PR fortran/33232 program test implicit none integer :: a READ *, a READ '(i3)', a end program test