! { dg-do compile } | |
! | |
! Test the fix for PR77903 | |
! | |
! Contributed by Damian Rouson <damian@sourceryinstitute.org> | |
! | |
module one_module | |
implicit none | |
interface | |
module function one() | |
end function | |
integer module function two() | |
end function | |
end interface | |
end module | |
submodule(one_module) one_submodule | |
implicit none | |
contains | |
integer module function one() ! { dg-error "Type mismatch" } | |
one = 1 | |
end function | |
integer(8) module function two() ! { dg-error "Type mismatch" } | |
two = 2 | |
end function | |
end submodule | |