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