libgomp/testsuite/libgomp.c++/target-23.C

   1 extern "C" void abort ();
   2
   3 struct S
   4 {
   5   int *data;
   6 };
   7
   8 int
   9 main (void)
  10 {
  11   #define SZ 10
  12   S *s = new S ();
  13   s->data = new int[SZ];
  14
  15   for (int i = 0; i < SZ; i++)
  16     s->data[i] = 0;
  17
  18   #pragma omp target enter data map(to: s)
  19   #pragma omp target enter data map(to: s->data, s->data[:SZ])
  20   #pragma omp target
  21   {
  22     for (int i = 0; i < SZ; i++)
  23       s->data[i] = i;
  24   }
  25   #pragma omp target exit data map(from: s->data, s->data[:SZ])
  26   #pragma omp target exit data map(from: s)
  27
  28   for (int i = 0; i < SZ; i++)
  29     if (s->data[i] != i)
  30       abort ();
  31
  32   return 0;
  33 }
  34