* tree-loop-distribution.c (struct partition): New field recording

[official-gcc.git] / gcc / testsuite / gfortran.dg / userdef_operator_2.f90

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