flang/test/Semantics/OpenMP/taskloop01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.9.2 taskloop Construct
   4
   5 subroutine parallel_work
   6   integer i
   7   integer j
   8
   9   !$omp taskgroup
  10     !$omp task
  11     call long_running_task()
  12     !$omp end task
  13
  14     !$omp taskloop private(j) grainsize(500) nogroup
  15     do i=1,10000
  16       do j=1,i
  17         call loop_body(i, j)
  18       end do
  19     end do
  20     !$omp end taskloop
  21   !$omp end taskgroup
  22
  23 end subroutine parallel_work