module user_op

  implicit none

  private

  interface myOperator
  end interface

  interface OPERATOR (.myOperator.)
     module procedure myOperator_Real
  end interface

contains

  function myOperator_Real (x, y) result (myOperator)
    real, intent(in) :: x, y
    logical :: myOperator
    myOperator = 1 < 0
    return
  end function myOperator_Real

end module user_op