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
40end
41