gcc/testsuite/c-c++-common/gomp/simd2.c

   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 }