libgomp/testsuite/libgomp.hsa.c/gridify-1.c

   1 void __attribute__((noinline, noclone))
   2 foo (int n, int *a, int workgroup_size)
   3 {
   4   int i;
   5 #pragma omp target
   6 #pragma omp teams thread_limit(workgroup_size)
   7 #pragma omp distribute parallel for shared(a) firstprivate(n) private(i)
   8     for (i = 0; i < n; i++)
   9       a[i]++;
  10 }
  11
  12 int main (int argc, char **argv)
  13 {
  14   int n = 32;
  15   int *a = __builtin_malloc (sizeof (int) * n);
  16   int i;
  17
  18   __builtin_memset (a, 0, sizeof (int) * n);
  19   foo (n, a, 32);
  20   for (i = 0; i < n; i ++)
  21     {
  22       if (a[i] != 1)
  23         __builtin_abort ();
  24     }
  25   return 0;
  26 }