Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/do1.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
45 a(i) = 5 * 256 + i 45 a(i) = 5 * 256 + i
46 end do 46 end do
47 47
48 !$omp end parallel 48 !$omp end parallel
49 49
50 if (any (a .ne. b)) call abort 50 if (any (a .ne. b)) STOP 1
51 a = -1 51 a = -1
52 52
53 !$omp parallel num_threads (4) 53 !$omp parallel num_threads (4)
54 54
55 !$omp do schedule (static) 55 !$omp do schedule (static)
77 a(i) = 5 * 256 + i 77 a(i) = 5 * 256 + i
78 end do 78 end do
79 79
80 !$omp end parallel 80 !$omp end parallel
81 81
82 if (any (a .ne. b)) call abort 82 if (any (a .ne. b)) STOP 2
83 a = -1 83 a = -1
84 84
85 !$omp parallel num_threads (4) 85 !$omp parallel num_threads (4)
86 86
87 !$omp do schedule (dynamic) 87 !$omp do schedule (dynamic)
109 a(i) = 5 * 256 + i 109 a(i) = 5 * 256 + i
110 end do 110 end do
111 111
112 !$omp end parallel 112 !$omp end parallel
113 113
114 if (any (a .ne. b)) call abort 114 if (any (a .ne. b)) STOP 3
115 a = -1 115 a = -1
116 116
117 !$omp parallel num_threads (4) 117 !$omp parallel num_threads (4)
118 118
119 !$omp do schedule (guided) 119 !$omp do schedule (guided)
141 a(i) = 5 * 256 + i 141 a(i) = 5 * 256 + i
142 end do 142 end do
143 143
144 !$omp end parallel 144 !$omp end parallel
145 145
146 if (any (a .ne. b)) call abort 146 if (any (a .ne. b)) STOP 4
147 a = -1 147 a = -1
148 148
149 !$omp parallel num_threads (4) 149 !$omp parallel num_threads (4)
150 150
151 !$omp do schedule (runtime) 151 !$omp do schedule (runtime)
173 a(i) = 5 * 256 + i 173 a(i) = 5 * 256 + i
174 end do 174 end do
175 175
176 !$omp end parallel 176 !$omp end parallel
177 177
178 if (any (a .ne. b)) call abort 178 if (any (a .ne. b)) STOP 5
179 end 179 end