1  void bar (short *);
       2  
       3  void
       4  foo (short *q, short *r, short *s, long t)
       5  {
       6    short *p;
       7    #pragma omp for
       8    for (p = q; p != r; p = p + 5)	/* { dg-error "increment is not constant 1 or -1" } */
       9      bar (p);
      10    #pragma omp for
      11    for (p = s; p != r; p = p - 2)	/* { dg-error "increment is not constant 1 or -1" } */
      12      bar (p);
      13    #pragma omp for
      14    for (p = q; p != r; p = t + p)	/* { dg-error "increment is not constant 1 or -1" } */
      15      bar (p);
      16    #pragma omp for
      17    for (p = s; p != r; p = -t + p)	/* { dg-error "increment is not constant 1 or -1" } */
      18      bar (p);
      19    #pragma omp for
      20    for (p = q; p != r; p += t)		/* { dg-error "increment is not constant 1 or -1" } */
      21      bar (p);
      22    #pragma omp for
      23    for (p = s; p != r; p -= 7)		/* { dg-error "increment is not constant 1 or -1" } */
      24      bar (p);
      25  }