libgomp/testsuite/libgomp.c-c++-common/target-implicit-map-2.c

   1 #include <stdlib.h>
   2
   3 #define N 10
   4
   5 struct S
   6 {
   7   int a, b;
   8   int *ptr;
   9   int c, d;
  10 };
  11
  12 int
  13 main (void)
  14 {
  15   struct S a;
  16   a.ptr = (int *) malloc (sizeof (int) * N);
  17
  18   for (int i = 0; i < N; i++)
  19     a.ptr[i] = 0;
  20
  21   #pragma omp target enter data map(to: a.ptr, a.ptr[:N])
  22
  23   #pragma omp target
  24   for (int i = 0; i < N; i++)
  25     a.ptr[i] += 1;
  26
  27   #pragma omp target update from(a.ptr[:N])
  28
  29   for (int i = 0; i < N; i++)
  30     if (a.ptr[i] != 1)
  31       abort ();
  32
  33   #pragma omp target map(a.ptr[:N])
  34   for (int i = 0; i < N; i++)
  35     a.ptr[i] += 1;
  36
  37   #pragma omp target update from(a.ptr[:N])
  38
  39   for (int i = 0; i < N; i++)
  40     if (a.ptr[i] != 2)
  41       abort ();
  42
  43   #pragma omp target exit data map(from:a.ptr, a.ptr[:N])
  44
  45   return 0;
  46 }