xref: /llvm-project/flang/test/Semantics/OpenMP/taskloop-simd01.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1*3323a4bdSKiran Chandramohan! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2*3323a4bdSKiran Chandramohan
3*3323a4bdSKiran Chandramohan! OpenMP Version 5.0
4*3323a4bdSKiran Chandramohan! 2.10.3 taskloop simd Construct
5*3323a4bdSKiran Chandramohan
6*3323a4bdSKiran Chandramohanprogram omp_taskloop_simd
7*3323a4bdSKiran Chandramohan  integer i , j , k
8*3323a4bdSKiran Chandramohan
9*3323a4bdSKiran Chandramohan  !$omp taskloop simd reduction(+:k)
10*3323a4bdSKiran Chandramohan  do i=1,10000
11*3323a4bdSKiran Chandramohan    do j=1,i
12*3323a4bdSKiran Chandramohan      k = k + 1
13*3323a4bdSKiran Chandramohan    end do
14*3323a4bdSKiran Chandramohan  end do
15*3323a4bdSKiran Chandramohan  !$omp end taskloop simd
16*3323a4bdSKiran Chandramohan
17*3323a4bdSKiran Chandramohanend program omp_taskloop_simd
18