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