xref: /llvm-project/flang/test/Semantics/OpenMP/do05.f90 (revision e67e09a77ea1e4802c0f6bc0409c9f5e9d1fae9a) 
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Loop Construct restrictions on single directive.
4
5
6program omp_do
7
8  integer n
9  integer i,j,k
10  !$omp do
11  do i=1,10
12    if( i == 5 ) then
13        cycle
14    end if
15    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
16    !$omp single
17    do j=1,10
18      print *,"hello"
19    end do
20    !$omp end single
21  end do
22  !$omp end do
23
24  !$omp parallel do
25  do i=1,10
26    if( i == 9 ) then
27    end if
28    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
29    !$omp single
30    do j=1,10
31      print *,"hello"
32    end do
33    !$omp end single
34  end do
35  !$omp end parallel do
36
37  !$omp parallel do simd
38  do i=1,10
39    if( i == 5 ) then
40        cycle
41    end if
42    !ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
43    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
44    !$omp single
45    do j=1,10
46      print *,"hello"
47    end do
48    !$omp end single
49  end do
50  !$omp end parallel do simd
51
52  !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
53  !$omp distribute parallel do
54  do i=1,10
55    if( i == 3 ) then
56        cycle
57    end if
58    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
59    !$omp single
60    do j=1,10
61      print *,"hello"
62    end do
63    !$omp end single
64  end do
65  !$omp end distribute parallel do
66
67  !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
68  !$omp distribute parallel do simd
69  do i=1,10
70    if( i == 3 ) then
71        cycle
72    end if
73    !ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
74    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
75    !$omp single
76    do j=1,10
77      print *,"hello"
78    end do
79    !$omp end single
80  end do
81  !$omp end distribute parallel do simd
82
83  !$omp target parallel do
84  do i=1,10
85    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
86    !$omp single
87    do j=1,10
88      print *,"hello"
89    end do
90    !$omp end single
91  end do
92  !$omp end target parallel do
93
94  !$omp target parallel do simd
95  do i=1,10
96    !ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
97    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
98    !$omp single
99    do j=1,10
100      print *,"hello"
101    end do
102    !$omp end single
103  end do
104  !$omp end target parallel do simd
105
106  !$omp target teams distribute parallel do
107  do i=1,10
108    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
109    !$omp single
110    do j=1,10
111      print *,"hello"
112    end do
113    !$omp end single
114  end do
115  !$omp end target teams distribute parallel do
116
117  !$omp target teams distribute parallel do simd
118  do i=1,10
119    !ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
120    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
121    !$omp single
122    do j=1,10
123      print *,"hello"
124    end do
125    !$omp end single
126  end do
127  !$omp end target teams distribute parallel do simd
128
129  !$omp do
130  do i=1,10
131    !$omp task
132    do j=1,10
133      !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
134      !$omp single
135      do k=1,10
136        print *,"hello"
137      end do
138      !$omp end single
139    end do
140    !$omp end task
141  end do
142  !$omp end do
143
144  !$omp do
145  do i=1,10
146    !$omp parallel
147    do j=1,10
148      !$omp single
149      do k=1,10
150        print *,"hello"
151      end do
152      !$omp end single
153    end do
154    !$omp end parallel
155  end do
156  !$omp end do
157
158!$omp do
159do i=1,10
160  !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
161  !$omp single
162  do j=1,10
163    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
164    !$omp single
165    do k=1,10
166      print *,"hello"
167    end do
168    !$omp end single
169  end do
170  !$omp end single
171
172  !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
173  !$omp single
174    do k=1,10
175      print *,"hello"
176    end do
177  !$omp end single
178
179  !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
180  !$omp do
181    do k=1,10
182      print *,"hello"
183    end do
184  !$omp end do
185end do
186!$omp end do
187
188  !$omp parallel default(shared)
189  !$omp do
190  do i = 1, n
191    !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
192    !$omp single
193    call work(i, 1)
194    !$omp end single
195  end do
196  !$omp end do
197  !$omp end parallel
198
199  !$omp parallel default(shared)
200  !$omp do
201  do i = 1, n
202    !$omp task
203    do j=1,10
204      !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
205      !$omp single
206      call work(i, 1)
207      !$omp end single
208    end do
209    !$omp end task
210  end do
211  !$omp end do
212  !$omp end parallel
213
214end program omp_do
215