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

 ! { dg-do compile }
 ! { dg-options "-std=f2008" }
 !
 ! PR fortran/48820
 !
 ! Test TYPE(*)

 subroutine one(a)
   type(*)  :: a ! { dg-error "TS 29113/TS 18508: Assumed type" }
 end subroutine one
	! { dg-do compile }
	! { dg-options "-std=f2008" }
	!
	! PR fortran/48820
	!
	! Test TYPE(*)

	subroutine one(a)
	type(*) :: a ! { dg-error "TS 29113/TS 18508: Assumed type" }
	end subroutine one