gcc/testsuite/c-c++-common/gomp/loop-2.c

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