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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
! { dg-do compile }
!
! PR fortran/51816
!
! Contributed by Harald Anlauf
!
module foo
implicit none
type t
integer :: i
end type t
interface operator (*)
module procedure mult
end interface
contains
function mult (i, j)
type(t), intent(in) :: i, j
integer :: mult
mult = i%i * j%i
end function mult
end module foo
module bar
implicit none
type t2
integer :: i
end type t2
interface operator (>)
module procedure gt
end interface
contains
function gt (i, j)
type(t2), intent(in) :: i, j
logical :: gt
gt = i%i > j%i
end function gt
end module bar
use bar, only : t2, operator(>) , operator(>)
use foo, only : t
use foo, only : operator (*)
use foo, only : t
use foo, only : operator (*)
implicit none
type(t) :: i = t(1), j = t(2)
type(t2) :: k = t2(1), l = t2(2)
print *, i*j
print *, k > l
end
|
