! Tests reduction processor behavior when a reduction symbol is not supported.

! RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s

subroutine foo
  implicit none
  integer :: k, i

  interface max
    function max(m1,m2)
      integer :: m1, m2
    end function
  end interface

  !CHECK: not yet implemented: Lowering unrecognised reduction type
  !$omp do reduction (max: k)
  do i=1,10
  end do
  !$omp end do
end