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

 ! { dg-do compile }
 !
 ! PR fortran/39427
 !
    subroutine t(x) ! { dg-error "conflicts with previously declared entity" }
      type(t) :: x ! { dg-error "conflicts with previously declared entity" }
    end subroutine t
	! { dg-do compile }
	!
	! PR fortran/39427
	!
	subroutine t(x) ! { dg-error "conflicts with previously declared entity" }
	type(t) :: x ! { dg-error "conflicts with previously declared entity" }
	end subroutine t