1  int a, b[64];
       2  struct S { int c; } *d, *e;
       3  struct T;
       4  struct T *f, *g;
       5  int *h;
       6  
       7  void
       8  f1 (void)
       9  {
      10    #pragma omp task depend (iterator , in : a)	/* { dg-error "expected" } */
      11    ;
      12    #pragma omp task depend (iterator (for = 0 : 2) , in : a)	/* { dg-error "expected" } */
      13    ;
      14    #pragma omp task depend (iterator (5 = 0 : 2) , in : a)	/* { dg-error "expected" } */
      15    ;
      16    #pragma omp task depend (iterator (i : 0 : 2) , in : a)	/* { dg-error "expected '='|name a type|expected" } */
      17    ;
      18    #pragma omp task depend (iterator (i = 0, 1 : 2) , in : a)	/* { dg-error "expected" } */
      19    ;
      20    #pragma omp task depend (iterator (i = (0, 1) : 2) , in : a)
      21    ;
      22    #pragma omp task depend (iterator (i = 0 : 1 : 2 : 3) , in : a)	/* { dg-error "expected '.'" } */
      23    ;
      24    #pragma omp task depend (iterator (i = 0 : 2, 3) , in : a)	/* { dg-error "expected" } */
      25    ;
      26    #pragma omp task depend (iterator (i = 0 : 10 : 2, 3) , in : a)	/* { dg-error "expected" } */
      27    ;
      28    #pragma omp task depend (iterator (i = 0:1), iterator (j = 0:1) , in : a)	/* { dg-error "invalid depend kind" } */
      29    ;
      30    #pragma omp task depend (iterator (i = 0:32) , in : b[i*2:2])
      31    ;
      32    #pragma omp task depend (iterator (struct S i = 0:1), in : a)		/* { dg-error "iterator 'i' has neither integral nor pointer type" } */
      33    ;
      34    #pragma omp task depend (iterator (void i = 0:1) , in : a)		/* { dg-error "iterator 'i' has neither integral nor pointer type" } */
      35    ;
      36    #pragma omp task depend (iterator (float f = 0.2:0.4) , in : a)	/* { dg-error "iterator 'f' has neither integral nor pointer type" } */
      37    ;
      38    #pragma omp task depend (iterator (struct S *p = d:e:2) , in : a)
      39    ;
      40    #pragma omp task depend (iterator (struct T *p = f:g) , in : a)	/* { dg-error "invalid use of" } */
      41    ;
      42    #pragma omp task depend (iterator (int i = 0:4, \
      43  				     struct U { int (*p)[i + 2]; } *p = 0:2) , in : a)	/* { dg-error "type of iterator 'p' refers to outer iterator 'i'" "" { target c } } */
      44    ;									/* { dg-error "types may not be defined in iterator type|not an integral constant" "" { target c++ } .-1 } */
      45    #pragma omp task depend (iterator (i = 0:4, j = i:16) , in : a)	/* { dg-error "begin expression refers to outer iterator 'i'" } */
      46    ;
      47    #pragma omp task depend (iterator (i = 0:4, j = 2:i:1) , in : a)	/* { dg-error "end expression refers to outer iterator 'i'" } */
      48    ;
      49    #pragma omp task depend (iterator (i = 0:4, j = 2:8:i) , in : a)	/* { dg-error "step expression refers to outer iterator 'i'" } */
      50    ;
      51    #pragma omp task depend (iterator (i = *d:2) , in : a)	/* { dg-error "aggregate value used where an integer was expected" "" { target c } } */
      52    ;								/* { dg-error "invalid cast from type 'S' to type 'int'" "" { target c++ } .-1 } */
      53    #pragma omp task depend (iterator (i = 2:*d:2) , in : a)	/* { dg-error "aggregate value used where an integer was expected" "" { target c } } */
      54    ;								/* { dg-error "invalid cast from type 'S' to type 'int'" "" { target c++ } .-1 } */
      55    #pragma omp task depend (iterator (i = 2:4:*d) , in : a)	/* { dg-error "iterator step with non-integral type" } */
      56    ;
      57    #pragma omp task depend (iterator (i = 1.25:2.5:3) , in : a)
      58    ;
      59    #pragma omp task depend (iterator (i = 1:2:3.5) , in : a)	/* { dg-error "iterator step with non-integral type" } */
      60    ;
      61    #pragma omp task depend (iterator (int *p = 23 : h) , in : a)
      62    ;
      63    #pragma omp task depend (iterator (short i=1:3:0) , in : a)	/* { dg-error "iterator 'i' has zero step" } */
      64    ;
      65    #pragma omp task depend (iterator (i = 1 : 3 : 3 - 3) , in : a)	/* { dg-error "iterator 'i' has zero step" } */
      66    ;
      67    #pragma omp task depend (iterator (int *p = &b[6]:&b[9]:4 - 4) , in : a)	/* { dg-error "iterator 'p' has zero step" } */
      68    ;
      69    #pragma omp task depend (iterator (const int i = 0 : 2) , in : a)	/* { dg-error "const qualified" } */
      70    ;
      71    #pragma omp task depend (iterator (const long long unsigned i = 0 : 2) , in : a)	/* { dg-error "const qualified" } */
      72    ;
      73  #if !defined (__cplusplus) && __STDC_VERSION__ >= 201112L
      74    #pragma omp task depend (iterator (_Atomic unsigned i = 0 : 2) , in : a)	/* { dg-error "_Atomic" "" { target c } } */
      75    ;
      76  #endif
      77  }
      78  
      79  void
      80  f2 (void)
      81  {
      82    int i, j;
      83    #pragma omp for ordered(2)
      84    for (i = 0; i < 64; i++)
      85      for (j = 0; j < 64; j++)
      86        {
      87        #pragma omp ordered depend (iterator (k=0:1) , sink: i - 1, j - 1)	/* { dg-error "'iterator' modifier incompatible with 'sink'" } */
      88        #pragma omp ordered depend (iterator (int l = 0:2:3) , source)		/* { dg-error "'iterator' modifier incompatible with 'source'" } */
      89        }
      90  }
      91  
      92  void
      93  f3 (void)
      94  {
      95    #pragma omp task depend (iterator (i = 0:1), iterator (j = 0:1) , in : a)	/* { dg-error "invalid depend kind" } */
      96    ;
      97  }