libgomp/testsuite/libgomp.oacc-c-c++-common/if-1.c

   1 /* { dg-do run } */
   2 /* { dg-additional-options "-fno-builtin-acc_on_device" } */
   3
   4 #include <openacc.h>
   5 #include <stdlib.h>
   6 #include <stdbool.h>
   7
   8 #define N   32
   9
  10 int
  11 main(int argc, char **argv)
  12 {
  13     float *a, *b, *d_a, *d_b, exp, exp2;
  14     int i;
  15     const int one = 1;
  16     const int zero = 0;
  17     int n;
  18
  19     a = (float *) malloc (N * sizeof (float));
  20     b = (float *) malloc (N * sizeof (float));
  21     d_a = (float *) acc_malloc (N * sizeof (float));
  22     d_b = (float *) acc_malloc (N * sizeof (float));
  23
  24     for (i = 0; i < N; i++)
  25         a[i] = 4.0;
  26
  27 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(1)
  28     {
  29         int ii;
  30
  31         for (ii = 0; ii < N; ii++)
  32         {
  33             if (acc_on_device (acc_device_host))
  34                 b[ii] = a[ii] + 1;
  35             else
  36                 b[ii] = a[ii];
  37         }
  38     }
  39
  40 #if ACC_MEM_SHARED
  41     exp = 5.0;
  42 #else
  43     exp = 4.0;
  44 #endif
  45
  46     for (i = 0; i < N; i++)
  47     {
  48         if (b[i] != exp)
  49             abort();
  50     }
  51
  52     for (i = 0; i < N; i++)
  53         a[i] = 16.0;
  54
  55 #pragma acc parallel if(0)
  56     {
  57         int ii;
  58
  59         for (ii = 0; ii < N; ii++)
  60         {
  61             if (acc_on_device (acc_device_host))
  62                 b[ii] = a[ii] + 1;
  63             else
  64                 b[ii] = a[ii];
  65         }
  66     }
  67
  68     for (i = 0; i < N; i++)
  69     {
  70         if (b[i] != 17.0)
  71             abort();
  72     }
  73
  74     for (i = 0; i < N; i++)
  75         a[i] = 8.0;
  76
  77 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(one)
  78     {
  79         int ii;
  80
  81         for (ii = 0; ii < N; ii++)
  82         {
  83             if (acc_on_device (acc_device_host))
  84                 b[ii] = a[ii] + 1;
  85             else
  86                 b[ii] = a[ii];
  87         }
  88     }
  89
  90 #if ACC_MEM_SHARED
  91     exp = 9.0;
  92 #else
  93     exp = 8.0;
  94 #endif
  95
  96     for (i = 0; i < N; i++)
  97     {
  98         if (b[i] != exp)
  99             abort();
 100     }
 101
 102     for (i = 0; i < N; i++)
 103         a[i] = 22.0;
 104
 105 #pragma acc parallel if(zero)
 106     {
 107         int ii;
 108
 109         for (ii = 0; ii < N; ii++)
 110         {
 111             if (acc_on_device (acc_device_host))
 112                 b[ii] = a[ii] + 1;
 113             else
 114                 b[ii] = a[ii];
 115         }
 116     }
 117
 118     for (i = 0; i < N; i++)
 119     {
 120         if (b[i] != 23.0)
 121             abort();
 122     }
 123
 124     for (i = 0; i < N; i++)
 125         a[i] = 16.0;
 126
 127 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(true)
 128     {
 129         int ii;
 130
 131         for (ii = 0; ii < N; ii++)
 132         {
 133             if (acc_on_device (acc_device_host))
 134                 b[ii] = a[ii] + 1;
 135             else
 136                 b[ii] = a[ii];
 137         }
 138     }
 139
 140 #if ACC_MEM_SHARED
 141     exp = 17.0;
 142 #else
 143     exp = 16.0;
 144 #endif
 145
 146     for (i = 0; i < N; i++)
 147     {
 148         if (b[i] != exp)
 149             abort();
 150     }
 151
 152     for (i = 0; i < N; i++)
 153         a[i] = 76.0;
 154
 155 #pragma acc parallel if(false)
 156     {
 157         int ii;
 158
 159         for (ii = 0; ii < N; ii++)
 160         {
 161             if (acc_on_device (acc_device_host))
 162                 b[ii] = a[ii] + 1;
 163             else
 164                 b[ii] = a[ii];
 165         }
 166     }
 167
 168     for (i = 0; i < N; i++)
 169     {
 170         if (b[i] != 77.0)
 171             abort();
 172     }
 173
 174     for (i = 0; i < N; i++)
 175         a[i] = 22.0;
 176
 177     n = 1;
 178
 179 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(n)
 180     {
 181         int ii;
 182
 183         for (ii = 0; ii < N; ii++)
 184         {
 185             if (acc_on_device (acc_device_host))
 186                 b[ii] = a[ii] + 1;
 187             else
 188                 b[ii] = a[ii];
 189         }
 190     }
 191
 192 #if ACC_MEM_SHARED
 193     exp = 23.0;
 194 #else
 195     exp = 22.0;
 196 #endif
 197
 198     for (i = 0; i < N; i++)
 199     {
 200         if (b[i] != exp)
 201             abort();
 202     }
 203
 204     for (i = 0; i < N; i++)
 205         a[i] = 18.0;
 206
 207     n = 0;
 208
 209 #pragma acc parallel if(n)
 210     {
 211         int ii;
 212
 213         for (ii = 0; ii < N; ii++)
 214         {
 215             if (acc_on_device (acc_device_host))
 216                 b[ii] = a[ii] + 1;
 217             else
 218                 b[ii] = a[ii];
 219         }
 220     }
 221
 222     for (i = 0; i < N; i++)
 223     {
 224         if (b[i] != 19.0)
 225             abort();
 226     }
 227
 228     for (i = 0; i < N; i++)
 229         a[i] = 49.0;
 230
 231     n = 1;
 232
 233 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(n + n)
 234     {
 235         int ii;
 236
 237         for (ii = 0; ii < N; ii++)
 238         {
 239             if (acc_on_device (acc_device_host))
 240                 b[ii] = a[ii] + 1;
 241             else
 242                 b[ii] = a[ii];
 243         }
 244     }
 245
 246 #if ACC_MEM_SHARED
 247     exp = 50.0;
 248 #else
 249     exp = 49.0;
 250 #endif
 251
 252     for (i = 0; i < N; i++)
 253     {
 254         if (b[i] != exp)
 255             abort();
 256     }
 257
 258     for (i = 0; i < N; i++)
 259         a[i] = 38.0;
 260
 261     n = 0;
 262
 263 #pragma acc parallel if(n + n)
 264     {
 265         int ii;
 266
 267         for (ii = 0; ii < N; ii++)
 268         {
 269             if (acc_on_device (acc_device_host))
 270                 b[ii] = a[ii] + 1;
 271             else
 272                 b[ii] = a[ii];
 273         }
 274     }
 275
 276     for (i = 0; i < N; i++)
 277     {
 278         if (b[i] != 39.0)
 279             abort();
 280     }
 281
 282     for (i = 0; i < N; i++)
 283         a[i] = 91.0;
 284
 285 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(-2)
 286     {
 287         int ii;
 288
 289         for (ii = 0; ii < N; ii++)
 290         {
 291             if (acc_on_device (acc_device_host))
 292                 b[ii] = a[ii] + 1;
 293             else
 294                 b[ii] = a[ii];
 295         }
 296     }
 297
 298 #if ACC_MEM_SHARED
 299     exp = 92.0;
 300 #else
 301     exp = 91.0;
 302 #endif
 303
 304     for (i = 0; i < N; i++)
 305     {
 306         if (b[i] != exp)
 307             abort();
 308     }
 309
 310     for (i = 0; i < N; i++)
 311         a[i] = 43.0;
 312
 313 #pragma acc parallel copyin(a[0:N]) copyout(b[0:N]) if(one == 1)
 314     {
 315         int ii;
 316
 317         for (ii = 0; ii < N; ii++)
 318         {
 319             if (acc_on_device (acc_device_host))
 320                 b[ii] = a[ii] + 1;
 321             else
 322                 b[ii] = a[ii];
 323         }
 324     }
 325
 326 #if ACC_MEM_SHARED
 327     exp = 44.0;
 328 #else
 329     exp = 43.0;
 330 #endif
 331
 332     for (i = 0; i < N; i++)
 333     {
 334         if (b[i] != exp)
 335             abort();
 336     }
 337
 338     for (i = 0; i < N; i++)
 339         a[i] = 87.0;
 340
 341 #pragma acc parallel if(one == 0)
 342     {
 343         int ii;
 344
 345         for (ii = 0; ii < N; ii++)
 346         {
 347             if (acc_on_device (acc_device_host))
 348                 b[ii] = a[ii] + 1;
 349             else
 350                 b[ii] = a[ii];
 351         }
 352     }
 353
 354     for (i = 0; i < N; i++)
 355     {
 356         if (b[i] != 88.0)
 357             abort();
 358     }
 359
 360     for (i = 0; i < N; i++)
 361     {
 362         a[i] = 3.0;
 363         b[i] = 9.0;
 364     }
 365
 366 #if ACC_MEM_SHARED
 367     exp = 0.0;
 368     exp2 = 0.0;
 369 #else
 370     acc_map_data (a, d_a, N * sizeof (float));
 371     acc_map_data (b, d_b, N * sizeof (float));
 372     exp = 3.0;
 373     exp2 = 9.0;
 374 #endif
 375
 376 #pragma acc update device(a[0:N], b[0:N]) if(1)
 377
 378     for (i = 0; i < N; i++)
 379     {
 380         a[i] = 0.0;
 381         b[i] = 0.0;
 382     }
 383
 384 #pragma acc update host(a[0:N], b[0:N]) if(1)
 385
 386     for (i = 0; i < N; i++)
 387     {
 388         if (a[i] != exp)
 389             abort();
 390
 391         if (b[i] != exp2)
 392             abort();
 393     }
 394
 395     for (i = 0; i < N; i++)
 396     {
 397         a[i] = 6.0;
 398         b[i] = 12.0;
 399     }
 400
 401 #pragma acc update device(a[0:N], b[0:N]) if(0)
 402
 403     for (i = 0; i < N; i++)
 404     {
 405         a[i] = 0.0;
 406         b[i] = 0.0;
 407     }
 408
 409 #pragma acc update host(a[0:N], b[0:N]) if(1)
 410
 411     for (i = 0; i < N; i++)
 412     {
 413         if (a[i] != exp)
 414             abort();
 415
 416         if (b[i] != exp2)
 417             abort();
 418     }
 419
 420     for (i = 0; i < N; i++)
 421     {
 422         a[i] = 26.0;
 423         b[i] = 21.0;
 424     }
 425
 426 #pragma acc update device(a[0:N], b[0:N]) if(1)
 427
 428     for (i = 0; i < N; i++)
 429     {
 430         a[i] = 0.0;
 431         b[i] = 0.0;
 432     }
 433
 434 #pragma acc update host(a[0:N], b[0:N]) if(0)
 435
 436     for (i = 0; i < N; i++)
 437     {
 438         if (a[i] != 0.0)
 439             abort();
 440
 441         if (b[i] != 0.0)
 442             abort();
 443     }
 444
 445 #if !ACC_MEM_SHARED
 446     acc_unmap_data (a);
 447     acc_unmap_data (b);
 448 #endif
 449
 450     acc_free (d_a);
 451     acc_free (d_b);
 452
 453     for (i = 0; i < N; i++)
 454     {
 455         a[i] = 4.0;
 456         b[i] = 0.0;
 457     }
 458
 459 #pragma acc data copyin(a[0:N]) copyout(b[0:N]) if(1)
 460 {
 461 #pragma acc parallel present(a[0:N])
 462     {
 463         int ii;
 464
 465         for (ii = 0; ii < N; ii++)
 466         {
 467             b[ii] = a[ii];
 468         }
 469     }
 470 }
 471
 472     for (i = 0; i < N; i++)
 473     {
 474         if (b[i] != 4.0)
 475             abort();
 476     }
 477
 478     for (i = 0; i < N; i++)
 479     {
 480         a[i] = 8.0;
 481         b[i] = 1.0;
 482     }
 483
 484 #pragma acc data copyin(a[0:N]) copyout(b[0:N]) if(0)
 485 {
 486 #if !ACC_MEM_SHARED
 487     if (acc_is_present (a, N * sizeof (float)))
 488         abort ();
 489 #endif
 490
 491 #if !ACC_MEM_SHARED
 492     if (acc_is_present (b, N * sizeof (float)))
 493         abort ();
 494 #endif
 495 }
 496
 497     for (i = 0; i < N; i++)
 498     {
 499         a[i] = 18.0;
 500         b[i] = 21.0;
 501     }
 502
 503 #pragma acc data copyin(a[0:N]) if(1)
 504 {
 505 #if !ACC_MEM_SHARED
 506     if (!acc_is_present (a, N * sizeof (float)))
 507         abort ();
 508 #endif
 509
 510 #pragma acc data copyout(b[0:N]) if(0)
 511     {
 512 #if !ACC_MEM_SHARED
 513         if (acc_is_present (b, N * sizeof (float)))
 514             abort ();
 515 #endif
 516
 517 #pragma acc data copyout(b[0:N]) if(1)
 518         {
 519 #pragma acc parallel present(a[0:N]) present(b[0:N])
 520             {
 521                 int ii;
 522
 523                 for (ii = 0; ii < N; ii++)
 524                 {
 525                     b[ii] = a[ii];
 526                 }
 527             }
 528         }
 529
 530 #if !ACC_MEM_SHARED
 531         if (acc_is_present (b, N * sizeof (float)))
 532             abort ();
 533 #endif
 534     }
 535 }
 536
 537     for (i = 0; i < N; i++)
 538     {
 539         if (b[i] != 18.0)
 540             abort ();
 541         }
 542
 543 #ifdef XXX_TODO_ENTER_END_DATA
 544 #endif
 545
 546     return 0;
 547 }