1! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.9.2 taskloop Construct 6! All loops associated with the taskloop construct must be perfectly nested, 7! there must be no intervening code or any OpenMP directive between 8! any two loops 9 10program omp_taskloop 11 integer i, j 12 13 !$omp taskloop private(j) grainsize(500) nogroup 14 do i=1, 10000 15 do j=1, i 16 call loop_body(i, j) 17 end do 18 !ERROR: Loops associated with !$omp taskloop is not perfectly nested 19 !$omp single 20 print *, "omp single" 21 !$omp end single 22 end do 23 !$omp end taskloop 24 25end program omp_taskloop 26