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

 ! { dg-do compile }
 !

 program test
   implicit type(t) (1)  ! { dg-error "Syntax error" }
   type t
   end type
 end program
	! { dg-do compile }
	!

	program test
	implicit type(t) (1) ! { dg-error "Syntax error" }
	type t
	end type
	end program