gcc/testsuite/gfortran.dg/pr61318.f90

   1 ! { dg-do compile }
   2 !
   3 module gbl_message
   4   type :: mytype
   5     integer(kind=4) :: e
   6   end type mytype
   7   type(mytype), parameter :: seve = mytype(1)
   8 end module gbl_message
   9
  10 module gbl_interfaces
  11   interface
  12     subroutine gagout(message)
  13       character(len=*), intent(in) :: message
  14     end subroutine gagout
  15   end interface
  16 end module gbl_interfaces
  17
  18 program test
  19   use gbl_message
  20   use gbl_interfaces
  21   call gagout(seve%e,'Some string') ! { dg-error "Type mismatch in argument" }
  22 end program test
  23 ! { dg-final { cleanup-modules "gbl_interfaces gbl_message" } }