1! RUN: %python %S/../test_errors.py %s %flang -fopenmp 2! OpenMP Version 4.5 3! 2.9.2 taskloop Construct 4 5subroutine 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 23end subroutine parallel_work 24