libgomp/testsuite/libgomp.c-c++-common/pr93515.c

   1 /* PR libgomp/93515 */
   2
   3 #include <omp.h>
   4 #include <stdlib.h>
   5
   6 int
   7 main ()
   8 {
   9   int i;
  10   int a = 42;
  11 #pragma omp target teams distribute parallel for defaultmap(tofrom: scalar)
  12   for (i = 0; i < 64; ++i)
  13     if (omp_get_team_num () == 0)
  14       if (omp_get_thread_num () == 0)
  15         a = 142;
  16   if (a != 142)
  17     __builtin_abort ();
  18   a = 42;
  19 #pragma omp target parallel for defaultmap(tofrom: scalar)
  20   for (i = 0; i < 64; ++i)
  21     if (omp_get_thread_num () == 0)
  22       a = 143;
  23   if (a != 143)
  24     __builtin_abort ();
  25   a = 42;
  26 #pragma omp target firstprivate(a)
  27   {
  28     #pragma omp parallel for
  29     for (i = 0; i < 64; ++i)
  30       if (omp_get_thread_num () == 0)
  31         a = 144;
  32     if (a != 144)
  33       abort ();
  34   }
  35   return 0;
  36 }