gcc/testsuite/gfortran.dg/pr61318.f90

! { 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