libgomp/testsuite/libgomp.c/target-8.c

   1 /* { dg-do run } */
   2
   3 void
   4 foo (int *p)
   5 {
   6   int i;
   7   #pragma omp parallel
   8   #pragma omp single
   9   #pragma omp target teams distribute parallel for map(p[0:24])
  10   for (i = 0; i < 24; i++)
  11     p[i] = p[i] + 1;
  12 }
  13
  14 int
  15 main ()
  16 {
  17   int p[24], i;
  18   for (i = 0; i < 24; i++)
  19     p[i] = i;
  20   foo (p);
  21   for (i = 0; i < 24; i++)
  22     if (p[i] != i + 1)
  23       __builtin_abort ();
  24   return 0;
  25 }