gcc/testsuite/gfortran.dg/read_1.f90 - gcc - Git at Google

 ! { dg-do compile }
 !
 ! Cf. PR fortran/33232
 program test
   implicit none
   integer :: a
   READ *, a
   READ '(i3)', a
 end program test
	! { dg-do compile }
	!
	! Cf. PR fortran/33232
	program test
	implicit none
	integer :: a
	READ *, a
	READ '(i3)', a
	end program test