9 ! user defined operator
10 INTERFACE OPERATOR(.FOO.)
11 MODULE PROCEDURE t_foo
14 INTERFACE OPERATOR(.FOO.)
15 MODULE PROCEDURE t_foo ! { dg-error "already present" }
18 INTERFACE OPERATOR(.FOO.)
19 MODULE PROCEDURE t_bar ! { dg-error "Ambiguous interfaces" }
23 INTERFACE OPERATOR(==)
24 MODULE PROCEDURE t_foo
27 INTERFACE OPERATOR(.eq.)
28 MODULE PROCEDURE t_foo ! { dg-error "already present" }
31 INTERFACE OPERATOR(==)
32 MODULE PROCEDURE t_bar ! { dg-error "Ambiguous interfaces" }
35 INTERFACE OPERATOR(.eq.)
36 MODULE PROCEDURE t_bar ! { dg-error "already present" }
40 LOGICAL FUNCTION t_foo(this, other)
41 TYPE(t), INTENT(in) :: this, other
45 LOGICAL FUNCTION t_bar(this, other)
46 TYPE(t), INTENT(in) :: this, other
51 ! { dg-final { cleanup-modules "mod_t" } }