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
foo(int * q,float * p)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
bar(float * p)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 }
30