1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
4 !ERROR: Logical constant '.true.' may not be used as a defined operator
5 interface operator(.TRUE
.)
7 !ERROR: Logical constant '.false.' may not be used as a defined operator
8 generic
:: operator(.false
.) => bar
15 interface operator(.foo
.)
18 interface operator(.ge
.)
22 integer function foo(x
, y
)
23 logical, intent(in
) :: x
, y
26 logical function bar(x
, y
)
27 complex, intent(in
) :: x
, y
32 !ERROR: Intrinsic operator '.le.' may not be used as a defined operator
33 use m2
, only
: operator(.le
.) => operator(.ge
.)
34 !ERROR: Intrinsic operator '.not.' may not be used as a defined operator
35 use m2
, only
: operator(.not
.) => operator(.foo
.)
36 !ERROR: Logical constant '.true.' may not be used as a defined operator
37 use m2
, only
: operator(.true
.) => operator(.foo
.)