2 ! Renaming of operators
4 interface operator(.addfive.)
10 integer,intent(in) :: x
16 interface operator(.addfive.)
22 integer,intent(in) :: x
28 interface operator(.addfive.)
34 integer,intent(in) :: x
39 use x, only : operator(.bar.) => operator(.addfive.)
40 use y, operator(.my.) => operator(.addfive.)
44 if ((.bar. i) /= 2+25) call abort ()
45 if ((.my. i) /= 2+15) call abort ()
46 if ((.addfive. i) /= 2+5) call abort ()
49 ! { dg-final { cleanup-modules "x y z" } }