111
|
1 /* { dg-do compile } */
|
|
2 /* { dg-options "-fopenmp" } */
|
|
3 /* { dg-additional-options "-std=c99" { target c } } */
|
|
4
|
|
5 extern int a[13][13][13][13], k, l, m;
|
|
6
|
|
7 void
|
|
8 foo (int *q, float *p)
|
|
9 {
|
|
10 int i, j, n, o;
|
|
11 #pragma omp simd collapse (4) linear(k : m + 1) aligned(p, q)
|
|
12 for (i = 0; i < 13; i++)
|
|
13 for (j = 0; j < 13; j++)
|
|
14 for (n = 0; n < 13; n++)
|
|
15 for (o = 0; o < 13; o += 2)
|
|
16 q[k] *= p[k] + 7 * i + 14 * j + 21 * n + 28 * o, k += m + 1;
|
|
17 }
|
|
18
|
|
19 void
|
|
20 bar (float *p)
|
|
21 {
|
|
22 int i, j, n, o;
|
|
23 #pragma omp simd collapse (4) linear(k : m + 1)
|
|
24 for (i = 0; i < 13; i++)
|
|
25 for (j = 0; j < 13; j++)
|
|
26 for (n = 0; n < 13; n++)
|
|
27 for (o = 0; o < 13; o += 2)
|
|
28 a[i][j][n][o] *= p[k], k += m + 1;
|
|
29 }
|