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

   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 }