21 lines · plain
1! Tests reduction processor behavior when a reduction symbol is not supported.2 3! RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s4 5subroutine foo6 implicit none7 integer :: k, i8 9 interface max10 function max(m1,m2)11 integer :: m1, m212 end function13 end interface14 15 !CHECK: not yet implemented: Lowering unrecognised reduction type16 !$omp do reduction (max: k)17 do i=1,1018 end do19 !$omp end do20end21