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