gcc/testsuite/c-c++-common/gomp/linear-4.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-fopenmp" } */
   3
   4 int step (int x, int y, int z) { return x + y + z; }
   5
   6 int
   7 foo (int x)
   8 {
   9   int i;
  10   #pragma omp parallel for linear (x : step (step (1, 2, 3)))
  11   for (i = 0; i < 64; i++)
  12     x += 6;
  13   return x;
  14 }
  15
  16 int
  17 bar (int x)
  18 {
  19   int i;
  20   #pragma omp parallel for linear (x : step (1, 2, 3))  /* { dg-error "expected" } */
  21   for (i = 0; i < 64; i++)
  22     x += 6;
  23   return x;
  24 }
  25
  26 int
  27 bar2 (int x)
  28 {
  29   int i;
  30   #pragma omp parallel for linear (x : step (1, 2, 3) * 1)
  31   for (i = 0; i < 64; i++)
  32     x += 6;
  33   return x;
  34 }