libgomp/testsuite/libgomp.c/target-26.c

   1 extern void abort (void);
   2 #pragma omp declare target
   3 int a[4] = { 2, 3, 4, 5 }, *b;
   4 #pragma omp end declare target
   5
   6 int
   7 main ()
   8 {
   9   int err;
  10   int c[3] = { 6, 7, 8 };
  11   b = c;
  12   #pragma omp target map(to: a[0:2], b[0:2]) map(from: err)
  13   err = a[0] != 2 || a[1] != 3 || a[2] != 4 || a[3] != 5 || b[0] != 6 || b[1] != 7;
  14   if (err)
  15     abort ();
  16   a[1] = 9;
  17   a[2] = 10;
  18   #pragma omp target map(always,to:a[1:2]) map(from: err)
  19   err = a[0] != 2 || a[1] != 9 || a[2] != 10 || a[3] != 5;
  20   if (err)
  21     abort ();
  22   #pragma omp parallel firstprivate(a, b, c, err) num_threads (2)
  23   #pragma omp single
  24   {
  25     b = c + 1;
  26     a[0] = 11;
  27     a[2] = 13;
  28     c[1] = 14;
  29     int d = 0;
  30     #pragma omp target map(to: a[0:3], b[d:2]) map (from: err)
  31     err = a[0] != 11 || a[1] != 9 || a[2] != 13 || b[0] != 14 || b[1] != 8;
  32     if (err)
  33       abort ();
  34   }
  35   return 0;
  36 }