! RUN: %S/test_errors.sh %s %t %f18 -fopenmp | |
! XFAIL: * | |
! OpenMP Version 4.5 | |
! 2.9.3 taskloop simd Construct | |
! No reduction clause may be specified for !$omp taskloop simd. | |
program omp_taskloop_simd | |
integer i , j , k | |
!ERROR: Unexpected clause specified for !$OMP taskloop simd | |
!$omp taskloop simd reduction(+:k) | |
do i=1,10000 | |
do j=1,i | |
call loop_body(i, j) | |
k = k + 1 | |
end do | |
end do | |
!$omp end taskloop simd | |
end program omp_taskloop_simd |