3 interface operator (.foo
.)
8 module procedure boolmul
11 interface assignment (=)
12 module procedure int2bool
16 function myfoo (lhs
, rhs
)
19 integer, intent(in
) :: lhs
, rhs
24 ! This is deliberately different from integer multiplication
25 function boolmul (lhs
, rhs
)
28 logical, intent(IN
) :: lhs
, rhs
30 boolmul
= lhs
.and
. .not
. rhs
33 subroutine int2bool (lhs
, rhs
)
35 logical, intent(out
) :: lhs
36 integer, intent(in
) :: rhs
52 if (.not
. (b
* c
)) STOP 2
65 if ((i
.foo
. j
) .ne
. 5) STOP 7