3 integer, dimension (128) :: a, b
9 if (i .ge. 8 .and. i .le. 15) then
11 else if (i .ge. 19 .and. i .le. 23) then
13 else if (i .ge. 28 .and. i .le. 38) then
14 if (iand (i, 1) .eq. 0) b(i) = 3 * 256 + i
15 else if (i .ge. 59 .and. i .le. 79) then
16 if (iand (i - 59, 3) .eq. 0) b(i) = 4 * 256 + i
17 else if (i .ge. 101 .and. i .le. 125) then
18 if (mod (i - 101, 12) .eq. 0) b(i) = 5 * 256 + i
24 !$omp parallel num_threads (4)
30 if (i .ne. j) k = .true.
43 if (i .ne. j) k = .true.
56 if (i .ne. j) k = .true.
69 if (i .ne. j) k = .true.
82 if (i .ne. j) k = .true.
89 if (any (a .ne. b) .or. k) stop 1
93 !$omp parallel num_threads (4)
95 !$omp do ordered schedule (static)
99 if (i .ne. j) k = .true.
108 !$omp do ordered schedule (static, 1)
112 if (i .ne. j) k = .true.
121 !$omp do ordered schedule (static, 3)
125 if (i .ne. j) k = .true.
134 !$omp do ordered schedule (static, 6)
138 if (i .ne. j) k = .true.
147 !$omp do ordered schedule (static, 2)
151 if (i .ne. j) k = .true.
158 if (any (a .ne. b) .or. k) stop 2
162 !$omp parallel num_threads (4)
164 !$omp do ordered schedule (dynamic)
168 if (i .ne. j) k = .true.
177 !$omp do ordered schedule (dynamic, 4)
181 if (i .ne. j) k = .true.
190 !$omp do ordered schedule (dynamic, 1)
194 if (i .ne. j) k = .true.
203 !$omp do ordered schedule (dynamic, 2)
207 if (i .ne. j) k = .true.
216 !$omp do ordered schedule (dynamic, 3)
220 if (i .ne. j) k = .true.
227 if (any (a .ne. b) .or. k) stop 3
231 !$omp parallel num_threads (4)
233 !$omp do ordered schedule (guided)
237 if (i .ne. j) k = .true.
246 !$omp do ordered schedule (guided, 4)
250 if (i .ne. j) k = .true.
259 !$omp do ordered schedule (guided, 1)
263 if (i .ne. j) k = .true.
272 !$omp do ordered schedule (guided, 2)
276 if (i .ne. j) k = .true.
285 !$omp do ordered schedule (guided, 3)
289 if (i .ne. j) k = .true.
296 if (any (a .ne. b) .or. k) stop 4
300 !$omp parallel num_threads (4)
302 !$omp do ordered schedule (runtime)
306 if (i .ne. j) k = .true.
315 !$omp do ordered schedule (runtime)
319 if (i .ne. j) k = .true.
328 !$omp do ordered schedule (runtime)
332 if (i .ne. j) k = .true.
341 !$omp do ordered schedule (runtime)
345 if (i .ne. j) k = .true.
354 !$omp do ordered schedule (runtime)
358 if (i .ne. j) k = .true.
365 if (any (a .ne. b) .or. k) stop 5