libgomp/testsuite/libgomp.c-c++-common/target-implicit-map-5.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)
  22   #pragma omp target enter data map(to: a.ptr[:N])
  23
  24   #pragma omp target
  25   for (int i = 0; i < N; i++)
  26     a.ptr[i] += 1;
  27
  28   #pragma omp target update from(a.ptr[:N])
  29
  30   for (int i = 0; i < N; i++)
  31     if (a.ptr[i] != 1)
  32       abort ();
  33
  34   #pragma omp target map(a.ptr[:N])
  35   for (int i = 0; i < N; i++)
  36     a.ptr[i] += 1;
  37
  38   #pragma omp target update from(a.ptr[:N])
  39
  40   for (int i = 0; i < N; i++)
  41     if (a.ptr[i] != 2)
  42       abort ();
  43
  44   #pragma omp target exit data map(release: a.ptr[:N])
  45   #pragma omp target exit data map(release: a.ptr)
  46
  47   free (a.ptr);
  48
  49   return 0;
  50 }