gcc/testsuite/gfortran.dg/dummy_derived_typed.f90


1
2
3
4
5

! { dg-do compile }
subroutine s(t)   ! { dg-error "Dummy argument" }
   type t         ! { dg-error "cannot be a derived" }
   end type       ! { dg-error "Expecting END SUBROUTINE" }
end