! { dg-do compile } | |
! PR fortran/pr87907 | |
! Original testcase contributed by Gerhard Stienmetz <gscfq at t-online dot de> | |
module m | |
interface | |
module function g(x) result(z) | |
integer, intent(in) :: x | |
integer, allocatable :: z | |
end | |
end interface | |
end | |
submodule(m) m2 | |
contains | |
subroutine g(x) ! { dg-error "mismatch in argument" } | |
end | |
end | |
program p | |
use m ! { dg-error "has a type" } | |
integer :: x = 3 | |
call g(x) ! { dg-error "which is not consistent with" } | |
end |