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

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! Check OpenMP 2.17 Nesting of Regions
   4
   5   N = 1024
   6   !$omp do
   7   do i = 1, N
   8      !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
   9      !$omp do
  10      do j = 1, N
  11         a = 3.14
  12      enddo
  13   enddo
  14
  15   !$omp do
  16   do i = 1, N
  17    !$omp target
  18    do k = 1,N
  19      !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
  20      !$omp do
  21      do j = 1, N
  22         a = 3.14
  23      enddo
  24    enddo
  25    !$omp end target
  26   enddo
  27
  28
  29   !$omp do
  30   do i = 1, N
  31    !$omp parallel
  32    do k = 1,N
  33      !$omp do
  34      do j = 1, N
  35         a = 3.14
  36      enddo
  37    enddo
  38    !$omp end parallel
  39   enddo
  40 end