Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/do2.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents a06113de4d67
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
84 !$omp end ordered 84 !$omp end ordered
85 end do 85 end do
86 86
87 !$omp end parallel 87 !$omp end parallel
88 88
89 if (any (a .ne. b) .or. k) call abort 89 if (any (a .ne. b) .or. k) STOP 1
90 a = -1 90 a = -1
91 k = .false. 91 k = .false.
92 j = 8 92 j = 8
93 !$omp parallel num_threads (4) 93 !$omp parallel num_threads (4)
94 94
153 !$omp end ordered 153 !$omp end ordered
154 end do 154 end do
155 155
156 !$omp end parallel 156 !$omp end parallel
157 157
158 if (any (a .ne. b) .or. k) call abort 158 if (any (a .ne. b) .or. k) STOP 2
159 a = -1 159 a = -1
160 k = .false. 160 k = .false.
161 j = 8 161 j = 8
162 !$omp parallel num_threads (4) 162 !$omp parallel num_threads (4)
163 163
222 !$omp end ordered 222 !$omp end ordered
223 end do 223 end do
224 224
225 !$omp end parallel 225 !$omp end parallel
226 226
227 if (any (a .ne. b) .or. k) call abort 227 if (any (a .ne. b) .or. k) STOP 3
228 a = -1 228 a = -1
229 k = .false. 229 k = .false.
230 j = 8 230 j = 8
231 !$omp parallel num_threads (4) 231 !$omp parallel num_threads (4)
232 232
291 !$omp end ordered 291 !$omp end ordered
292 end do 292 end do
293 293
294 !$omp end parallel 294 !$omp end parallel
295 295
296 if (any (a .ne. b) .or. k) call abort 296 if (any (a .ne. b) .or. k) STOP 4
297 a = -1 297 a = -1
298 k = .false. 298 k = .false.
299 j = 8 299 j = 8
300 !$omp parallel num_threads (4) 300 !$omp parallel num_threads (4)
301 301
302 !$omp do ordered schedule (runtime) 302 !$omp do ordered schedule (runtime)
303 do i = 8, 15 303 do i = 8, 15
304 a(i) = 1 * 256 + i 304 a(i) = 1 * 256 + i
305 !$omp ordered 305 !$omp ordered
306 if (i .ne. j) k = .true. 306 if (i .ne. j) k = .true.
307 j = j + 1 307 j = j + 1
308 !$omp end ordered 308 !$omp end ordered
309 end do 309 end do
310 310
311 !$omp single 311 !$omp single
312 j = 23 312 j = 23
313 !$omp end single 313 !$omp end single
314 314
315 !$omp do ordered schedule (runtime) 315 !$omp do ordered schedule (runtime)
316 do i = 23, 19, -1 316 do i = 23, 19, -1
317 a(i) = 2 * 256 + i 317 a(i) = 2 * 256 + i
318 !$omp ordered 318 !$omp ordered
319 if (i .ne. j) k = .true. 319 if (i .ne. j) k = .true.
320 j = j - 1 320 j = j - 1
321 !$omp end ordered 321 !$omp end ordered
322 end do 322 end do
323 323
324 !$omp single 324 !$omp single
325 j = 28 325 j = 28
326 !$omp end single 326 !$omp end single
327 327
328 !$omp do ordered schedule (runtime) 328 !$omp do ordered schedule (runtime)
329 do i = 28, 39, 2 329 do i = 28, 39, 2
330 a(i) = 3 * 256 + i 330 a(i) = 3 * 256 + i
331 !$omp ordered 331 !$omp ordered
332 if (i .ne. j) k = .true. 332 if (i .ne. j) k = .true.
333 j = j + 2 333 j = j + 2
334 !$omp end ordered 334 !$omp end ordered
335 end do 335 end do
336 336
337 !$omp single 337 !$omp single
338 j = 79 338 j = 79
339 !$omp end single 339 !$omp end single
340 340
341 !$omp do ordered schedule (runtime) 341 !$omp do ordered schedule (runtime)
342 do i = 79, 59, -4 342 do i = 79, 59, -4
343 a(i) = 4 * 256 + i 343 a(i) = 4 * 256 + i
344 !$omp ordered 344 !$omp ordered
345 if (i .ne. j) k = .true. 345 if (i .ne. j) k = .true.
346 j = j - 4 346 j = j - 4
347 !$omp end ordered 347 !$omp end ordered
348 end do 348 end do
349 349
350 !$omp single 350 !$omp single
351 j = 125 351 j = 125
352 !$omp end single 352 !$omp end single
353 353
354 !$omp do ordered schedule (runtime) 354 !$omp do ordered schedule (runtime)
355 do i = 125, 90, -12 355 do i = 125, 90, -12
356 a(i) = 5 * 256 + i 356 a(i) = 5 * 256 + i
357 !$omp ordered 357 !$omp ordered
358 if (i .ne. j) k = .true. 358 if (i .ne. j) k = .true.
359 j = j - 12 359 j = j - 12
360 !$omp end ordered 360 !$omp end ordered
361 end do 361 end do
362 362
363 !$omp end parallel 363 !$omp end parallel
364 364
365 if (any (a .ne. b) .or. k) call abort 365 if (any (a .ne. b) .or. k) STOP 5
366 end 366 end