! { 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 |