Subversion Repositories openrisc

! { dg-do compile }

! PR 45338 - no ICE when cmp is not used explicitly.

! Test case by Simon Smart

module test_mod

  implicit none

contains

  subroutine test_fn (cmp)

    interface operator(.myop.)

       pure function cmp (a, b) result(ret)

         integer, intent(in) :: a, b

         logical ret

       end function cmp

    end interface

    integer :: a, b

    print*, a .myop. b

  end subroutine test_fn

end module test_mod

! { dg-final { cleanup-modules "test_mod" } }