| ! { 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 |
| ! { dg-final { cleanup-modules "gbl_interfaces gbl_message" } } |