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  }