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
28
29
30
31
32
33
|
module interface_13_module_1
implicit none
interface operator(.mul.)
module procedure multiply
end interface
contains
integer function multiply(a, b)
integer, intent(in) :: a
integer, intent(in) :: b
multiply = a * b
end function multiply
end module
module interface_13_module_2
use interface_13_module_1, only: operator(.mul.)
implicit none
contains
subroutine compute()
integer :: res
res = 123 .mul. 456
if (res /= 56088) error stop
end subroutine compute
end module
program interface_13
use interface_13_module_2
implicit none
call compute()
end program interface_13
|
