Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/collapse1.f90 @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 ! { dg-do run }
2
3 program collapse1
4 integer :: i, j, k, a(1:3, 4:6, 5:7)
5 logical :: l
6 l = .false.
7 a(:, :, :) = 0
8 !$omp parallel do collapse(4 - 1) schedule(static, 4)
9 do i = 1, 3
10 do j = 4, 6
11 do k = 5, 7
12 a(i, j, k) = i + j + k
13 end do
14 end do
15 end do
16 !$omp parallel do collapse(2) reduction(.or.:l)
17 do i = 1, 3
18 do j = 4, 6
19 do k = 5, 7
20 if (a(i, j, k) .ne. (i + j + k)) l = .true.
21 end do
22 end do
23 end do
24 !$omp end parallel do
25 if (l) call abort
26 end program collapse1