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

   1 /* { dg-do run } */
   2 /* { dg-options "-O0 -fopenmp-simd" } */
   3
   4 #include <stdio.h>
   5
   6 #define ASSERT_EQ(var, val) \
   7   do                                                                    \
   8     {                                                                   \
   9       if ((var) != (val))                                               \
  10         {                                                               \
  11           fprintf (stderr, "%s:%d: Unexpected value %d, expected %d\n", \
  12                    __FILE__, __LINE__, (var), (val));                   \
  13           __builtin_abort ();                                           \
  14         }                                                               \
  15     }                                                                   \
  16   while (0)
  17
  18 int
  19 test1 (void)
  20 {
  21   int iter = 0;
  22   int i;
  23 #pragma omp tile sizes(3)
  24   for (i = 0; i < 10; i = i + 2)
  25     {
  26       ASSERT_EQ (i, iter);
  27       iter = iter + 2;
  28     }
  29
  30   ASSERT_EQ (i, 10);
  31   return iter;
  32 }
  33
  34 int
  35 test2 (void)
  36 {
  37   int iter = 0;
  38   int i;
  39 #pragma omp tile sizes(3)
  40   for (i = 0; i < 10; i = i + 2)
  41     {
  42       ASSERT_EQ (i, iter);
  43       iter = iter + 2;
  44     }
  45
  46   ASSERT_EQ (i, 10);
  47   return iter;
  48 }
  49
  50 int
  51 test3 (void)
  52 {
  53   int iter = 0;
  54   int i;
  55 #pragma omp tile sizes(8)
  56   for (i = 0; i < 10; i = i + 2)
  57     {
  58       ASSERT_EQ (i, iter);
  59       iter = iter + 2;
  60     }
  61
  62   ASSERT_EQ (i, 10);
  63   return iter;
  64 }
  65
  66 int
  67 test4 (void)
  68 {
  69   int iter = 10;
  70   int i;
  71 #pragma omp tile sizes(8)
  72   for (i = 10; i > 0; i = i - 2)
  73     {
  74       ASSERT_EQ (i, iter);
  75       iter = iter - 2;
  76     }
  77   ASSERT_EQ (i, 0);
  78   return iter;
  79 }
  80
  81 int
  82 test5 (void)
  83 {
  84   int iter = 10;
  85   int i;
  86 #pragma omp tile sizes(71)
  87   for (i = 10; i > 0; i = i - 2)
  88     {
  89       ASSERT_EQ (i, iter);
  90       iter = iter - 2;
  91     }
  92
  93   ASSERT_EQ (i, 0);
  94   return iter;
  95 }
  96
  97 int
  98 test6 (void)
  99 {
 100   int iter = 10;
 101   int i;
 102 #pragma omp tile sizes(1)
 103   for (i = 10; i > 0; i = i - 2)
 104     {
 105       ASSERT_EQ (i, iter);
 106       iter = iter - 2;
 107     }
 108   ASSERT_EQ (i, 0);
 109   return iter;
 110 }
 111
 112 int
 113 test7 (void)
 114 {
 115   int iter = 5;
 116   int i;
 117 #pragma omp tile sizes(2)
 118   for (i = 5; i < -5; i = i - 3)
 119     {
 120       fprintf (stderr, "%d\n", i);
 121       __builtin_abort ();
 122       iter = iter - 3;
 123     }
 124
 125   /* No iteration expected */
 126   return iter;
 127 }
 128
 129 int
 130 test8 (void)
 131 {
 132   int iter = 5;
 133   int i;
 134 #pragma omp tile sizes(2)
 135   for (i = 5; i > -5; i = i - 3)
 136     {
 137       ASSERT_EQ (i, iter);
 138       /* Expect only first iteration of the last tile to execute */
 139       if (iter != -4)
 140         iter = iter - 3;
 141     }
 142
 143   ASSERT_EQ (i, -7);
 144   return iter;
 145 }
 146
 147
 148 int
 149 test9 (void)
 150 {
 151   int iter = 5;
 152   int i;
 153 #pragma omp tile sizes(5)
 154   for (i = 5; i >= -5; i = i - 4)
 155     {
 156       ASSERT_EQ (i, iter);
 157       /* Expect only first iteration of the last tile to execute */
 158       if (iter != - 3)
 159         iter = iter - 4;
 160     }
 161
 162   ASSERT_EQ (i, -7);
 163   return iter;
 164 }
 165
 166 int
 167 test10 (void)
 168 {
 169   int iter = 5;
 170   int i;
 171 #pragma omp tile sizes(5)
 172   for (i = 5; i >= -5; i--)
 173     {
 174       ASSERT_EQ (i, iter);
 175       iter--;
 176     }
 177
 178   ASSERT_EQ (i, -6);
 179   return iter;
 180 }
 181
 182 int
 183 test11 (void)
 184 {
 185   int iter = 5;
 186   int i;
 187 #pragma omp tile sizes(15)
 188   for (i = 5; i != -5; i--)
 189     {
 190       ASSERT_EQ (i, iter);
 191       iter--;
 192     }
 193   ASSERT_EQ (i, -5);
 194   return iter;
 195 }
 196
 197 int
 198 test12 (void)
 199 {
 200   int iter = 0;
 201   unsigned i;
 202 #pragma omp tile sizes(3)
 203   for (i = 0; i != 5; i++)
 204     {
 205       ASSERT_EQ (i, iter);
 206       iter++;
 207     }
 208
 209   ASSERT_EQ (i, 5);
 210   return iter;
 211 }
 212
 213 int
 214 test13 (void)
 215 {
 216   int iter = -5;
 217   long long unsigned int i = 42;
 218 #pragma omp tile sizes(15)
 219   for (int i = -5; i < 5; i = i + 3)
 220     {
 221       ASSERT_EQ (i, iter);
 222       iter += 3;
 223     }
 224
 225   ASSERT_EQ (i, 42);
 226   return iter;
 227 }
 228
 229 int
 230 test14 (unsigned init, int step)
 231 {
 232   int iter = init;
 233   long long unsigned int i;
 234 #pragma omp tile sizes(8)
 235   for (i = init; i < 2 * init; i = i + step)
 236     iter++;
 237
 238   if (init)
 239     ASSERT_EQ (i, 2 * init + (init == 5));
 240   return iter;
 241 }
 242
 243 int
 244 test15 (unsigned init, int step)
 245 {
 246   int iter = init;
 247   int i;
 248 #pragma omp tile sizes(8)
 249   for (unsigned i = init; i > 2 * init; i = i + step)
 250     iter++;
 251
 252   return iter;
 253 }
 254
 255 int
 256 main ()
 257 {
 258   int last_iter;
 259
 260   last_iter = test1 ();
 261   ASSERT_EQ (last_iter, 10);
 262
 263   last_iter = test2 ();
 264   ASSERT_EQ (last_iter, 10);
 265
 266   last_iter = test3 ();
 267   ASSERT_EQ (last_iter, 10);
 268
 269   last_iter = test4 ();
 270   ASSERT_EQ (last_iter, 0);
 271
 272   last_iter = test5 ();
 273   ASSERT_EQ (last_iter, 0);
 274
 275   last_iter = test6 ();
 276   ASSERT_EQ (last_iter, 0);
 277
 278   last_iter = test7 ();
 279   ASSERT_EQ (last_iter, 5);
 280
 281   last_iter = test8 ();
 282   ASSERT_EQ (last_iter, -4);
 283
 284   last_iter = test9 ();
 285   ASSERT_EQ (last_iter, -3);
 286
 287   last_iter = test10 ();
 288   ASSERT_EQ (last_iter, -6);
 289
 290   last_iter = test11 ();
 291   ASSERT_EQ (last_iter, -5);
 292
 293   last_iter = test12 ();
 294   ASSERT_EQ (last_iter, 5);
 295
 296   last_iter = test13 ();
 297   ASSERT_EQ (last_iter, 7);
 298
 299   last_iter = test14 (0, 1);
 300   ASSERT_EQ (last_iter, 0);
 301
 302   last_iter = test14 (0, -1);
 303   ASSERT_EQ (last_iter, 0);
 304
 305   last_iter = test14 (8, 2);
 306   ASSERT_EQ (last_iter, 12);
 307
 308   last_iter = test14 (5, 3);
 309   ASSERT_EQ (last_iter, 7);
 310
 311   last_iter = test15 (8, -1);
 312   ASSERT_EQ (last_iter, 8);
 313
 314   last_iter = test15 (8, -2);
 315   ASSERT_EQ (last_iter, 8);
 316
 317   last_iter = test15 (5, -3);
 318   ASSERT_EQ (last_iter, 5);
 319   return 0;
 320 }