14 lines · plain
1!RUN: not %flang_fc1 -fopenmp -emit-hlfir -o - %s2 3! Check that we reject the "task" reduction modifier on the "simd" directive.4 5subroutine fred(x)6 integer, intent(inout) :: x7 8 !$omp simd reduction(task, +:x)9 do i = 1, 10010 x = foo(i)11 enddo12 !$omp end simd13end14