7 type(mytype
), parameter :: seve
= mytype(1)
12 subroutine gagout(message
)
13 character(len
=*), intent(in
) :: message
16 end module gbl_interfaces
21 call gagout(seve
%e
,'Some string') ! { dg-error "Type mismatch in argument|More actual than formal" }