libgomp/testsuite/libgomp.c++/target-exit-data-reftoptr-1.C

   1 #include <cstring>
   2 #include <cassert>
   3
   4 struct S {
   5   int *&ptr;
   6   S(int *&ptr_) : ptr(ptr_) { }
   7 };
   8
   9 int main()
  10 {
  11   int *orig = new int[100];
  12
  13   memset (orig, 0, sizeof (int) * 100);
  14
  15   S svar(orig);
  16
  17 #pragma omp target enter data map(to: svar.ptr, svar.ptr[10:80])
  18
  19 #pragma omp target
  20   {
  21     for (int i = 10; i < 90; i++)
  22       svar.ptr[i]++;
  23   }
  24
  25 #pragma omp target exit data map(release: svar.ptr) map(from: svar.ptr[10:80])
  26
  27   for (int i = 0; i < 100; i++)
  28     assert (i >= 10 && i < 90 && svar.ptr[i] == 1
  29             || svar.ptr[i] == 0);
  30
  31   delete orig;
  32
  33   return 0;
  34 }