1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
2! XFAIL: *
3
4! OpenMP Version 4.5
5! 2.9.3 taskloop simd Construct
6! No reduction clause may be specified for !$omp taskloop simd.
7
8program omp_taskloop_simd
9  integer i , j , k
10
11  !ERROR: Unexpected clause specified for !$OMP taskloop simd
12  !$omp taskloop simd reduction(+:k)
13  do i=1,10000
14    do j=1,i
15      call loop_body(i, j)
16      k = k + 1
17    end do
18  end do
19  !$omp end taskloop simd
20
21end program omp_taskloop_simd
22