2aa218c247
Emit diagnostic messages for invalid modifiers in "reduction" clause. Fixes https://github.com/llvm/llvm-project/issues/92397
14 lines
274 B
Fortran
14 lines
274 B
Fortran
!RUN: not %flang_fc1 -fopenmp -emit-hlfir -o - %s
|
|
|
|
! Check that we reject the "task" reduction modifier on the "simd" directive.
|
|
|
|
subroutine fred(x)
|
|
integer, intent(inout) :: x
|
|
|
|
!$omp simd reduction(task, +:x)
|
|
do i = 1, 100
|
|
x = foo(i)
|
|
enddo
|
|
!$omp end simd
|
|
end
|