flang/test/Semantics/OpenMP/taskloop-simd01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! OpenMP Version 5.0
   4 ! 2.10.3 taskloop simd Construct
   5
   6 program 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
  17 end program omp_taskloop_simd