OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [loop-5.c] - Blame information for rev 791

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
#include <omp.h>
2
#include <stdlib.h>
3
#include <string.h>
4
 
5
int
6
test1 (void)
7
{
8
  short int buf[64], *p;
9
  int i;
10
  memset (buf, '\0', sizeof (buf));
11
#pragma omp parallel for
12
  for (p = &buf[10]; p < &buf[54]; p++)
13
    *p = 5;
14
  for (i = 0; i < 64; i++)
15
    if (buf[i] != 5 * (i >= 10 && i < 54))
16
      abort ();
17
  memset (buf, '\0', sizeof (buf));
18
#pragma omp parallel for
19
  for (p = &buf[3]; p <= &buf[63]; p += 2)
20
    p[-2] = 6;
21
  for (i = 0; i < 64; i++)
22
    if (buf[i] != 6 * ((i & 1) && i <= 61))
23
      abort ();
24
  memset (buf, '\0', sizeof (buf));
25
#pragma omp parallel for
26
  for (p = &buf[16]; p < &buf[51]; p = 4 + p)
27
    p[2] = 7;
28
  for (i = 0; i < 64; i++)
29
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
30
      abort ();
31
  memset (buf, '\0', sizeof (buf));
32
#pragma omp parallel for
33
  for (p = &buf[16]; p <= &buf[40]; p = p + 4ULL)
34
    p[2] = -7;
35
  for (i = 0; i < 64; i++)
36
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
37
      abort ();
38
  memset (buf, '\0', sizeof (buf));
39
#pragma omp parallel for
40
  for (p = &buf[53]; p > &buf[9]; --p)
41
    *p = 5;
42
  for (i = 0; i < 64; i++)
43
    if (buf[i] != 5 * (i >= 10 && i < 54))
44
      abort ();
45
  memset (buf, '\0', sizeof (buf));
46
#pragma omp parallel for
47
  for (p = &buf[63]; p >= &buf[3]; p -= 2)
48
    p[-2] = 6;
49
  for (i = 0; i < 64; i++)
50
    if (buf[i] != 6 * ((i & 1) && i <= 61))
51
      abort ();
52
  memset (buf, '\0', sizeof (buf));
53
#pragma omp parallel for
54
  for (p = &buf[48]; p > &buf[15]; p = -4 + p)
55
    p[2] = 7;
56
  for (i = 0; i < 64; i++)
57
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
58
      abort ();
59
  memset (buf, '\0', sizeof (buf));
60
#pragma omp parallel for
61
  for (p = &buf[40]; p >= &buf[16]; p = p - 4ULL)
62
    p[2] = -7;
63
  for (i = 0; i < 64; i++)
64
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
65
      abort ();
66
  return 0;
67
}
68
 
69
int
70
test2 (void)
71
{
72
  int buf[64], *p;
73
  int i;
74
  memset (buf, '\0', sizeof (buf));
75
#pragma omp parallel for schedule (static, 3)
76
  for (p = &buf[10]; p < &buf[54]; p++)
77
    *p = 5;
78
  for (i = 0; i < 64; i++)
79
    if (buf[i] != 5 * (i >= 10 && i < 54))
80
      abort ();
81
  memset (buf, '\0', sizeof (buf));
82
#pragma omp parallel for schedule (static, 3)
83
  for (p = &buf[3]; p <= &buf[63]; p += 2)
84
    p[-2] = 6;
85
  for (i = 0; i < 64; i++)
86
    if (buf[i] != 6 * ((i & 1) && i <= 61))
87
      abort ();
88
  memset (buf, '\0', sizeof (buf));
89
#pragma omp parallel for schedule (static, 3)
90
  for (p = &buf[16]; p < &buf[51]; p = 4 + p)
91
    p[2] = 7;
92
  for (i = 0; i < 64; i++)
93
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
94
      abort ();
95
  memset (buf, '\0', sizeof (buf));
96
#pragma omp parallel for schedule (static, 3)
97
  for (p = &buf[16]; p <= &buf[40]; p = p + 4ULL)
98
    p[2] = -7;
99
  for (i = 0; i < 64; i++)
100
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
101
      abort ();
102
  memset (buf, '\0', sizeof (buf));
103
#pragma omp parallel for schedule (static, 3)
104
  for (p = &buf[53]; p > &buf[9]; --p)
105
    *p = 5;
106
  for (i = 0; i < 64; i++)
107
    if (buf[i] != 5 * (i >= 10 && i < 54))
108
      abort ();
109
  memset (buf, '\0', sizeof (buf));
110
#pragma omp parallel for schedule (static, 3)
111
  for (p = &buf[63]; p >= &buf[3]; p -= 2)
112
    p[-2] = 6;
113
  for (i = 0; i < 64; i++)
114
    if (buf[i] != 6 * ((i & 1) && i <= 61))
115
      abort ();
116
  memset (buf, '\0', sizeof (buf));
117
#pragma omp parallel for schedule (static, 3)
118
  for (p = &buf[48]; p > &buf[15]; p = -4 + p)
119
    p[2] = 7;
120
  for (i = 0; i < 64; i++)
121
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
122
      abort ();
123
  memset (buf, '\0', sizeof (buf));
124
#pragma omp parallel for schedule (static, 3)
125
  for (p = &buf[40]; p >= &buf[16]; p = p - 4ULL)
126
    p[2] = -7;
127
  for (i = 0; i < 64; i++)
128
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
129
      abort ();
130
  return 0;
131
}
132
 
133
int
134
test3 (void)
135
{
136
  int buf[64], *p;
137
  int i;
138
  memset (buf, '\0', sizeof (buf));
139
#pragma omp parallel for schedule (dynamic, 3)
140
  for (p = &buf[10]; p < &buf[54]; p++)
141
    *p = 5;
142
  for (i = 0; i < 64; i++)
143
    if (buf[i] != 5 * (i >= 10 && i < 54))
144
      abort ();
145
  memset (buf, '\0', sizeof (buf));
146
#pragma omp parallel for schedule (dynamic, 3)
147
  for (p = &buf[3]; p <= &buf[63]; p += 2)
148
    p[-2] = 6;
149
  for (i = 0; i < 64; i++)
150
    if (buf[i] != 6 * ((i & 1) && i <= 61))
151
      abort ();
152
  memset (buf, '\0', sizeof (buf));
153
#pragma omp parallel for schedule (dynamic, 3)
154
  for (p = &buf[16]; p < &buf[51]; p = 4 + p)
155
    p[2] = 7;
156
  for (i = 0; i < 64; i++)
157
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
158
      abort ();
159
  memset (buf, '\0', sizeof (buf));
160
#pragma omp parallel for schedule (dynamic, 3)
161
  for (p = &buf[16]; p <= &buf[40]; p = p + 4ULL)
162
    p[2] = -7;
163
  for (i = 0; i < 64; i++)
164
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
165
      abort ();
166
  memset (buf, '\0', sizeof (buf));
167
#pragma omp parallel for schedule (dynamic, 3)
168
  for (p = &buf[53]; p > &buf[9]; --p)
169
    *p = 5;
170
  for (i = 0; i < 64; i++)
171
    if (buf[i] != 5 * (i >= 10 && i < 54))
172
      abort ();
173
  memset (buf, '\0', sizeof (buf));
174
#pragma omp parallel for schedule (dynamic, 3)
175
  for (p = &buf[63]; p >= &buf[3]; p -= 2)
176
    p[-2] = 6;
177
  for (i = 0; i < 64; i++)
178
    if (buf[i] != 6 * ((i & 1) && i <= 61))
179
      abort ();
180
  memset (buf, '\0', sizeof (buf));
181
#pragma omp parallel for schedule (dynamic, 3)
182
  for (p = &buf[48]; p > &buf[15]; p = -4 + p)
183
    p[2] = 7;
184
  for (i = 0; i < 64; i++)
185
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
186
      abort ();
187
  memset (buf, '\0', sizeof (buf));
188
#pragma omp parallel for schedule (dynamic, 3)
189
  for (p = &buf[40]; p >= &buf[16]; p = p - 4ULL)
190
    p[2] = -7;
191
  for (i = 0; i < 64; i++)
192
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
193
      abort ();
194
  return 0;
195
}
196
 
197
int
198
test4 (void)
199
{
200
  int buf[64], *p;
201
  int i;
202
  memset (buf, '\0', sizeof (buf));
203
#pragma omp parallel for schedule (runtime)
204
  for (p = &buf[10]; p < &buf[54]; p++)
205
    *p = 5;
206
  for (i = 0; i < 64; i++)
207
    if (buf[i] != 5 * (i >= 10 && i < 54))
208
      abort ();
209
  memset (buf, '\0', sizeof (buf));
210
#pragma omp parallel for schedule (runtime)
211
  for (p = &buf[3]; p <= &buf[63]; p += 2)
212
    p[-2] = 6;
213
  for (i = 0; i < 64; i++)
214
    if (buf[i] != 6 * ((i & 1) && i <= 61))
215
      abort ();
216
  memset (buf, '\0', sizeof (buf));
217
#pragma omp parallel for schedule (runtime)
218
  for (p = &buf[16]; p < &buf[51]; p = 4 + p)
219
    p[2] = 7;
220
  for (i = 0; i < 64; i++)
221
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
222
      abort ();
223
  memset (buf, '\0', sizeof (buf));
224
#pragma omp parallel for schedule (runtime)
225
  for (p = &buf[16]; p <= &buf[40]; p = p + 4ULL)
226
    p[2] = -7;
227
  for (i = 0; i < 64; i++)
228
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
229
      abort ();
230
  memset (buf, '\0', sizeof (buf));
231
#pragma omp parallel for schedule (runtime)
232
  for (p = &buf[53]; p > &buf[9]; --p)
233
    *p = 5;
234
  for (i = 0; i < 64; i++)
235
    if (buf[i] != 5 * (i >= 10 && i < 54))
236
      abort ();
237
  memset (buf, '\0', sizeof (buf));
238
#pragma omp parallel for schedule (runtime)
239
  for (p = &buf[63]; p >= &buf[3]; p -= 2)
240
    p[-2] = 6;
241
  for (i = 0; i < 64; i++)
242
    if (buf[i] != 6 * ((i & 1) && i <= 61))
243
      abort ();
244
  memset (buf, '\0', sizeof (buf));
245
#pragma omp parallel for schedule (runtime)
246
  for (p = &buf[48]; p > &buf[15]; p = -4 + p)
247
    p[2] = 7;
248
  for (i = 0; i < 64; i++)
249
    if (buf[i] != 7 * ((i & 3) == 2 && i >= 18 && i < 53))
250
      abort ();
251
  memset (buf, '\0', sizeof (buf));
252
#pragma omp parallel for schedule (runtime)
253
  for (p = &buf[40]; p >= &buf[16]; p = p - 4ULL)
254
    p[2] = -7;
255
  for (i = 0; i < 64; i++)
256
    if (buf[i] != -7 * ((i & 3) == 2 && i >= 18 && i <= 42))
257
      abort ();
258
  return 0;
259
}
260
 
261
int
262
main (void)
263
{
264
  test1 ();
265
  test2 ();
266
  test3 ();
267
  omp_set_schedule (omp_sched_static, 0);
268
  test4 ();
269
  omp_set_schedule (omp_sched_static, 3);
270
  test4 ();
271
  omp_set_schedule (omp_sched_dynamic, 5);
272
  test4 ();
273
  omp_set_schedule (omp_sched_guided, 2);
274
  test4 ();
275
  return 0;
276
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.