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

 ! { dg-do compile }
 subroutine s
   type t
   1 ! { dg-error "Statement label without statement" }
   end type
 end subroutine
	! { dg-do compile }
	subroutine s
	type t
	1 ! { dg-error "Statement label without statement" }
	end type
	end subroutine