24 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.9.2 taskloop Construct4 5subroutine parallel_work6 integer i7 integer j8 9 !$omp taskgroup10 !$omp task11 call long_running_task()12 !$omp end task13 14 !$omp taskloop private(j) grainsize(500) nogroup15 do i=1,1000016 do j=1,i17 call loop_body(i, j)18 end do19 end do20 !$omp end taskloop21 !$omp end taskgroup22 23end subroutine parallel_work24