flang/test/Semantics/OpenMP/omp-taskloop03.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang -fopenmp
   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
  10 program 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
  25 end program omp_taskloop