! { dg-do compile } | |
! | |
module gbl_message | |
type :: mytype | |
integer(kind=4) :: e | |
end type mytype | |
type(mytype), parameter :: seve = mytype(1) | |
end module gbl_message | |
module gbl_interfaces | |
interface | |
subroutine gagout(message) | |
character(len=*), intent(in) :: message | |
end subroutine gagout | |
end interface | |
end module gbl_interfaces | |
program test | |
use gbl_message | |
use gbl_interfaces | |
call gagout(seve%e,'Some string') ! { dg-error "Type mismatch in argument" } | |
end program test |