Mercurial > hg > CbC > CbC_gcc

annotate libgomp/testsuite/libgomp.c-c++-common/loop-14.c @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 /* { dg-do run } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 volatile int ji = 100, ki = 2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 volatile unsigned int ju = 100, ku = 2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 volatile long long int jll = 100, kll = 2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 volatile unsigned long long int jull = 100, kull = 2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 unsigned long long l;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 f0 (void)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 int i, j, k;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 unsigned int j2, k2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 #pragma omp for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 #pragma omp parallel for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
33 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
34 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
35 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
36 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
37 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
38 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
39 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
40 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
41 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
42 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
43 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
44 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
45 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
46 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
47 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
48 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
49 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
50 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
51 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
52 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
53 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
54 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
55 for (k = ki + 10; k < ji - 10; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
56 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
57 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
58 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
59 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
60 for (j = ki + 10; j < ji - 10; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
61 for (i = ji; i < ki; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
62 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
63 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
64 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
65 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
66 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
67
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
68 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
69 f1 (void)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
70 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
71 unsigned int i, j, k;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
72 int j2, k2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
73 #pragma omp for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
74 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
75 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
76 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
77 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
78 #pragma omp parallel for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
79 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
80 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
81 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
82 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
83 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
84 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
85 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
86 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
87 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
88 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
89 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
90 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
91 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
92 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
93 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
94 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
95 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
96 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
97 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
98 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
99 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
100 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
101 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
102 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
103 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
104 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
105 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
106 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
107 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
108 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
109 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
110 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
111 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
112 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
113 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
114 for (k = ku; k < ju; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
115 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
116 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
117 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
118 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
119 for (j = ku; j < ju; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
120 for (i = ju; i < ku; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
121 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
122 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
123 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
124 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
125 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
126
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
127 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
128 f2 (void)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
129 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
130 long long int i, j, k;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
131 unsigned long long int j2, k2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
132 #pragma omp for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
133 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
134 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
135 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
136 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
137 #pragma omp parallel for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
138 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
139 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
140 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
141 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
142 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
143 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
144 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
145 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
146 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
147 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
148 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
149 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
150 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
151 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
152 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
153 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
154 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
155 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
156 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
157 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
158 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
159 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
160 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
161 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
162 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
163 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
164 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
165 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
166 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
167 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
168 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
169 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
170 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
171 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
172 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
173 for (k = kll; k < jll; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
174 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
175 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
176 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
177 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
178 for (j = kll; j < jll; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
179 for (i = jll; i < kll; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
180 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
181 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
182 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
183 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
184 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
185
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
186 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
187 f3 (void)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
188 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
189 unsigned long long int i, j, k;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
190 long long int j2, k2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
191 #pragma omp for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
192 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
193 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
194 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
195 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
196 #pragma omp parallel for reduction(+: l) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
197 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
198 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
199 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
200 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
201 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
202 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
203 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
204 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
205 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
206 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
207 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
208 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
209 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
210 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
211 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
212 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
213 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
214 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
215 #pragma omp for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
216 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
217 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
218 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
219 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
220 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
221 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
222 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
223 for (j2 = 0; j2 < 4; j2++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
224 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
225 for (k2 = 0; k2 < 5; k2 += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
226 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
227 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
228 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
229 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
230 for (j = 0; j < 4; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
231 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
232 for (k = kull; k < jull; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
233 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
234 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
235 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
236 #pragma omp parallel for reduction(+: l) collapse(3) schedule(static, 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
237 for (j = kull; j < jull; j++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
238 for (i = jull; i < kull; i++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
239 for (k = 0; k < 5; k += 2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
240 l++;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
241 if (l != 0)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
242 __builtin_abort ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
243 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
244
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
245 int
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
246 main ()
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
247 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
248 f0 ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
249 f1 ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
250 f2 ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
251 f3 ();
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
252 return 0;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
253 }