blob: 36a95a50f13548f77ce5b436502506fbce323ca9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { 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
|
