gcc/testsuite/gcc.dg/gomp/loop-1.c

   1 int bar (int);
   2 int baz (int *);
   3
   4 void
   5 f1 (int x)
   6 {
   7   int i = 0, j = 0;
   8   #pragma omp for
   9   for (i = 0; i < 16; i++)
  10     ;
  11   #pragma omp for
  12   for (i = 0; 16 > i; i++)
  13     ;
  14   #pragma omp for
  15   for (i = 0; i < 16; i = i + 2)
  16     ;
  17   #pragma omp for
  18   for (i = 0; i < 16; i = 2 + i)
  19     ;
  20   #pragma omp for /* { dg-error "initializer expression refers to iteration variable" } */
  21   for (i = i; i < 16; i++)
  22     ;
  23   #pragma omp for
  24   for (i = 2 * (i & x); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
  25     ;
  26   #pragma omp for
  27   for (i = bar (i); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
  28     ;
  29   #pragma omp for
  30   for (i = baz (&i); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
  31     ;
  32   #pragma omp for
  33   for (i = 5; i < 2 * i + 17; i++) /* { dg-error "condition expression refers to iteration variable" } */
  34     ;
  35   #pragma omp for
  36   for (i = 5; 2 * i + 17 > i; i++) /* { dg-error "condition expression refers to iteration variable" } */
  37     ;
  38   #pragma omp for
  39   for (i = 5; bar (i) > i; i++) /* { dg-error "condition expression refers to iteration variable" } */
  40     ;
  41   #pragma omp for
  42   for (i = 5; i <= baz (&i); i++) /* { dg-error "condition expression refers to iteration variable" } */
  43     ;
  44   #pragma omp for
  45   for (i = 5; i <= i; i++) /* { dg-error "invalid controlling predicate|condition expression refers to iteration variable" } */
  46     ;
  47   #pragma omp for /* { dg-error "increment expression refers to iteration variable" "" { xfail *-*-* } } */
  48   for (i = 5; i < 16; i += i) /* { dg-bogus "invalid increment expression" "" { xfail *-*-* } } */
  49     ;
  50   #pragma omp for
  51   for (i = 5; i < 16; i = i + 2 * i) /* { dg-error "invalid increment expression|increment expression refers to iteration variable" } */
  52     ;
  53   #pragma omp for /* { dg-error "increment expression refers to iteration variable" "" { xfail *-*-* } } */
  54   for (i = 5; i < 16; i = i + i) /* { dg-bogus "invalid increment expression" "" { xfail *-*-* } } */
  55     ;
  56   #pragma omp for
  57   for (i = 5; i < 16; i = i + bar (i)) /* { dg-error "increment expression refers to iteration variable" } */
  58     ;
  59   #pragma omp for
  60   for (i = 5; i < 16; i = baz (&i) + i) /* { dg-error "increment expression refers to iteration variable" } */
  61     ;
  62   #pragma omp for
  63   for (i = 5; i < 16; i += bar (i)) /* { dg-error "increment expression refers to iteration variable" } */
  64     ;
  65   #pragma omp for
  66   for (i = 5; i < 16; i += baz (&i)) /* { dg-error "increment expression refers to iteration variable" } */
  67     ;
  68   #pragma omp for collapse(2)
  69   for (i = 0; i < 16; i = i + 2)
  70     for (j = 0; j < 16; j += 2)
  71       ;
  72   #pragma omp for collapse(2) /* { dg-error "initializer expression refers to iteration variable" } */
  73   for (i = j; i < 16; i = i + 2)
  74     for (j = 0; j < 16; j++)
  75       ;
  76   #pragma omp for collapse(2)
  77   for (i = 0; i < 16; i = i + 2)
  78     for (j = i; j < 16; j += 2)
  79       ;
  80   #pragma omp for collapse(2)
  81   for (i = 0; i < 16; i = i + 2)
  82     for (j = i + 3; j < 16; j += 2)
  83       ;
  84   #pragma omp for collapse(2)
  85   for (i = 0; i < 16; i++)
  86     for (j = baz (&i); j < 16; j += 2) /* { dg-error "initializer expression refers to iteration variable" } */
  87       ;
  88   #pragma omp for collapse(2)
  89   for (i = 0; i < 16; i++)
  90     for (j = 16; j > (i & x); j--) /* { dg-error "condition expression refers to iteration variable" } */
  91       ;
  92   #pragma omp for collapse(2)
  93   for (i = 0; i < 16; i++)
  94     for (j = 0; j < i; j++)
  95       ;
  96   #pragma omp for collapse(2)
  97   for (i = 0; i < 16; i++)
  98     for (j = 0; j < i + 4; j++)
  99       ;
 100   #pragma omp for collapse(2)
 101   for (i = 0; i < j + 4; i++) /* { dg-error "condition expression refers to iteration variable" } */
 102     for (j = 0; j < 16; j++)
 103       ;
 104   #pragma omp for collapse(2)
 105   for (i = 0; i < j; i++) /* { dg-error "condition expression refers to iteration variable" } */
 106     for (j = 0; j < 16; j++)
 107       ;
 108   #pragma omp for collapse(2)
 109   for (i = 0; i < bar (j); i++) /* { dg-error "condition expression refers to iteration variable" } */
 110     for (j = 0; j < 16; j++)
 111       ;
 112   #pragma omp for collapse(2)
 113   for (i = 0; i < 16; i++)
 114     for (j = 0; j < baz (&i); j++) /* { dg-error "condition expression refers to iteration variable" } */
 115       ;
 116   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 117   for (i = 0; i < 16; i += j)
 118     for (j = 0; j < 16; j++)
 119       ;
 120   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 121   for (i = 0; i < 16; i++)
 122     for (j = 0; j < 16; j += i)
 123       ;
 124   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 125   for (i = 0; i < 16; i = j + i)
 126     for (j = 0; j < 16; j++)
 127       ;
 128   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 129   for (i = 0; i < 16; i++)
 130     for (j = 0; j < 16; j = j + i)
 131       ;
 132   #pragma omp for collapse(2)
 133   for (i = 0; i < 16; i = bar (j) + i) /* { dg-error "increment expression refers to iteration variable" } */
 134     for (j = 0; j < 16; j++)
 135       ;
 136   #pragma omp for collapse(2)
 137   for (i = 0; i < 16; i++)
 138     for (j = 0; j < 16; j = j + baz (&i)) /* { dg-error "increment expression refers to iteration variable" } */
 139       ;
 140 }
 141
 142 void
 143 f2 (int x)
 144 {
 145   #pragma omp for
 146   for (int i = 0; i < 16; i++)
 147     ;
 148   #pragma omp for
 149   for (int i = 0; 16 > i; i++)
 150     ;
 151   #pragma omp for
 152   for (int i = 0; i < 16; i = i + 2)
 153     ;
 154   #pragma omp for
 155   for (int i = 0; i < 16; i = 2 + i)
 156     ;
 157   #pragma omp for /* { dg-error "initializer expression refers to iteration variable" } */
 158   for (int i = i; i < 16; i++)
 159     ;
 160   #pragma omp for
 161   for (int i = 2 * (i & x); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
 162     ;
 163   #pragma omp for
 164   for (int i = bar (i); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
 165     ;
 166   #pragma omp for
 167   for (int i = baz (&i); i < 16; i++) /* { dg-error "initializer expression refers to iteration variable" } */
 168     ;
 169   #pragma omp for
 170   for (int i = 5; i < 2 * i + 17; i++) /* { dg-error "condition expression refers to iteration variable" } */
 171     ;
 172   #pragma omp for
 173   for (int i = 5; 2 * i + 17 > i; i++) /* { dg-error "condition expression refers to iteration variable" } */
 174     ;
 175   #pragma omp for
 176   for (int i = 5; bar (i) > i; i++) /* { dg-error "condition expression refers to iteration variable" } */
 177     ;
 178   #pragma omp for
 179   for (int i = 5; i <= baz (&i); i++) /* { dg-error "condition expression refers to iteration variable" } */
 180     ;
 181   #pragma omp for
 182   for (int i = 5; i <= i; i++) /* { dg-error "invalid controlling predicate|condition expression refers to iteration variable" } */
 183     ;
 184   #pragma omp for /* { dg-error "increment expression refers to iteration variable" "" { xfail *-*-* } } */
 185   for (int i = 5; i < 16; i += i) /* { dg-bogus "invalid increment expression" "" { xfail *-*-* } } */
 186     ;
 187   #pragma omp for
 188   for (int i = 5; i < 16; i = i + 2 * i) /* { dg-error "invalid increment expression|increment expression refers to iteration variable" } */
 189     ;
 190   #pragma omp for /* { dg-error "increment expression refers to iteration variable" "" { xfail *-*-* } } */
 191   for (int i = 5; i < 16; i = i + i) /* { dg-bogus "invalid increment expression" "" { xfail *-*-* } } */
 192     ;
 193   #pragma omp for
 194   for (int i = 5; i < 16; i = i + bar (i)) /* { dg-error "increment expression refers to iteration variable" } */
 195     ;
 196   #pragma omp for
 197   for (int i = 5; i < 16; i = baz (&i) + i) /* { dg-error "increment expression refers to iteration variable" } */
 198     ;
 199   #pragma omp for
 200   for (int i = 5; i < 16; i += bar (i)) /* { dg-error "increment expression refers to iteration variable" } */
 201     ;
 202   #pragma omp for
 203   for (int i = 5; i < 16; i += baz (&i)) /* { dg-error "increment expression refers to iteration variable" } */
 204     ;
 205   #pragma omp for collapse(2)
 206   for (int i = 0; i < 16; i = i + 2)
 207     for (int j = 0; j < 16; j += 2)
 208       ;
 209   #pragma omp for collapse(2)
 210   for (int i = 0; i < 16; i = i + 2)
 211     for (int j = i; j < 16; j += 2)
 212       ;
 213   #pragma omp for collapse(2)
 214   for (int i = 0; i < 16; i = i + 2)
 215     for (int j = i + 3; j < 16; j += 2)
 216       ;
 217   #pragma omp for collapse(2)
 218   for (int i = 0; i < 16; i++)
 219     for (int j = baz (&i); j < 16; j += 2) /* { dg-error "initializer expression refers to iteration variable" } */
 220       ;
 221   #pragma omp for collapse(2)
 222   for (int i = 0; i < 16; i++)
 223     for (int j = 16; j > (i & x); j--) /* { dg-error "condition expression refers to iteration variable" } */
 224       ;
 225   #pragma omp for collapse(2)
 226   for (int i = 0; i < 16; i++)
 227     for (int j = 0; j < i; j++)
 228       ;
 229   #pragma omp for collapse(2)
 230   for (int i = 0; i < 16; i++)
 231     for (int j = 0; j < i + 4; j++)
 232       ;
 233   #pragma omp for collapse(2)
 234   for (int i = 0; i < 16; i++)
 235     for (int j = 0; j < baz (&i); j++) /* { dg-error "condition expression refers to iteration variable" } */
 236       ;
 237   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 238   for (int i = 0; i < 16; i++)
 239     for (int j = 0; j < 16; j += i)
 240       ;
 241   #pragma omp for collapse(2) /* { dg-error "increment expression refers to iteration variable" } */
 242   for (int i = 0; i < 16; i++)
 243     for (int j = 0; j < 16; j = j + i)
 244       ;
 245   #pragma omp for collapse(2)
 246   for (int i = 0; i < 16; i++)
 247     for (int j = 0; j < 16; j = j + baz (&i)) /* { dg-error "increment expression refers to iteration variable" } */
 248       ;
 249 }
 250
 251 void
 252 f3 (void)
 253 {
 254   int j = 0;
 255   #pragma omp for collapse(2)
 256   for (int i = j; i < 16; i = i + 2)
 257     for (int j = 0; j < 16; j++)
 258       ;
 259   #pragma omp for collapse(2)
 260   for (int i = 0; i < j + 4; i++)
 261     for (int j = 0; j < 16; j++)
 262       ;
 263   #pragma omp for collapse(2)
 264   for (int i = 0; i < j; i++)
 265     for (int j = 0; j < 16; j++)
 266       ;
 267   #pragma omp for collapse(2)
 268   for (int i = 0; i < bar (j); i++)
 269     for (int j = 0; j < 16; j++)
 270       ;
 271   #pragma omp for collapse(2)
 272   for (int i = 0; i < 16; i += j)
 273     for (int j = 0; j < 16; j++)
 274       ;
 275   #pragma omp for collapse(2)
 276   for (int i = 0; i < 16; i = j + i)
 277     for (int j = 0; j < 16; j++)
 278       ;
 279   #pragma omp for collapse(2)
 280   for (int i = 0; i < 16; i = bar (j) + i)
 281     for (int j = 0; j < 16; j++)
 282       ;
 283 }