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