26 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags2! XFAIL: *3 4! OpenMP Version 4.55! 2.9.2 taskloop Construct6! All loops associated with the taskloop construct must be perfectly nested,7! there must be no intervening code or any OpenMP directive between8! any two loops9 10program omp_taskloop11 integer i, j12 13 !$omp taskloop private(j) grainsize(500) nogroup14 do i=1, 1000015 do j=1, i16 call loop_body(i, j)17 end do18 !ERROR: Loops associated with !$omp taskloop is not perfectly nested19 !$omp single20 print *, "omp single"21 !$omp end single22 end do23 !$omp end taskloop24 25end program omp_taskloop26