1! { dg-do compile }
2! PR 45338 - no ICE when cmp is not used explicitly.
3! Test case by Simon Smart
4module test_mod
5  implicit none
6contains
7  subroutine test_fn (cmp)
8    interface operator(.myop.)
9       pure function cmp (a, b) result(ret)
10         integer, intent(in) :: a, b
11         logical ret
12       end function cmp
13    end interface
14    integer :: a, b
15    print*, a .myop. b
16  end subroutine test_fn
17end module test_mod
18