libgomp/testsuite/libgomp.c++/lvalue-tofrom-1.C

   1 #include <cstring>
   2 #include <cassert>
   3
   4 static int lo()
   5 {
   6   return 30;
   7 }
   8
   9 static int len()
  10 {
  11   return 10;
  12 }
  13
  14 template<typename T>
  15 void foo ()
  16 {
  17   T arr[100];
  18   T *ptr;
  19
  20   memset (arr, '\0', sizeof arr);
  21
  22 #pragma omp target enter data map(to: arr[0:100])
  23
  24   for (int i = 0; i < 100; i++)
  25     arr[i] = i;
  26
  27   ptr = &arr[10];
  28
  29 #pragma omp target update to(*ptr)
  30
  31   for (int i = lo (); i < lo () + len (); i++)
  32     arr[i] = i * 2;
  33
  34 #pragma omp target update to(arr[lo():len()])
  35
  36 #pragma omp target exit data map(from: arr[0:100])
  37
  38   assert (arr[10] == 10);
  39   for (int i = lo (); i < lo () + len (); i++)
  40     assert (arr[i] == i * 2);
  41 }
  42
  43 int
  44 main ()
  45 {
  46   char arr[100];
  47   char *ptr;
  48
  49   memset (arr, '\0', sizeof arr);
  50
  51 #pragma omp target enter data map(to: arr[0:100])
  52
  53   for (int i = 0; i < 100; i++)
  54     arr[i] = i;
  55
  56   ptr = &arr[10];
  57
  58 #pragma omp target update to(*ptr)
  59
  60   for (int i = lo (); i < lo () + len (); i++)
  61     arr[i] = i * 2;
  62
  63 #pragma omp target update to(arr[lo():len()])
  64
  65 #pragma omp target exit data map(from: arr[0:100])
  66
  67   assert (arr[10] == 10);
  68   for (int i = lo (); i < lo () + len (); i++)
  69     assert (arr[i] == i * 2);
  70
  71   foo<short> ();
  72
  73   return 0;
  74 }
  75