1!RUN: not %flang_fc1 -fopenmp -emit-hlfir -o - %s
2
3! Check that we reject the "task" reduction modifier on the "simd" directive.
4
5subroutine fred(x)
6 integer, intent(inout) :: x
7
8 !$omp simd reduction(task, +:x)
9 do i = 1, 100
10 x = foo(i)
11 enddo
12 !$omp end simd
13end
14