libgomp/testsuite/libgomp.hsa.c/get-level-1.c

   1 #include <omp.h>
   2
   3 int
   4 main ()
   5 {
   6   int i;
   7   int level = -1;
   8
   9 #pragma omp target map(tofrom : level)
  10   {
  11     level = omp_get_level ();
  12   }
  13
  14   if (level != 0)
  15     __builtin_abort ();
  16
  17 #pragma omp target teams map(tofrom : level)
  18 #pragma omp distribute parallel for default(none) private(i) shared(level)
  19   for (i = 0; i < 1; ++i)
  20     level += omp_get_level ();
  21
  22   if (level != 1)
  23     __builtin_abort ();
  24
  25   return 0;
  26 }