libgomp/testsuite/libgomp.c++/target-22.C

   1 extern "C" void abort (void);
   2 struct S { int e, f; };
   3
   4 void
   5 foo (int *&p, int (&s)[5], int &t, S &u, int n)
   6 {
   7   int a[4] = { 7, 8, 9, 10 }, b[n], c[3] = { 20, 21, 22 };
   8   int *r = a + 1, *q = p - 1, i, err;
   9   int v = 27;
  10   S w = { 28, 29 };
  11   for (i = 0; i < n; i++)
  12     b[i] = 9 + i;
  13   #pragma omp target data map(to:a) use_device_ptr(r) map(from:err)
  14   #pragma omp target is_device_ptr(r) private(i) map(from:err)
  15   {
  16     err = 0;
  17     for (i = 0; i < 4; i++)
  18       if (r[i - 1] != 7 + i)
  19         err = 1;
  20   }
  21   if (err)
  22     abort ();
  23   #pragma omp target data use_device_ptr(p) map(from:err) map(to:q[:4])
  24   #pragma omp target is_device_ptr(p) private(i) map(from:err)
  25   {
  26     err = 0;
  27     for (i = 0; i < 4; i++)
  28       if (p[i - 1] != i)
  29         err = 1;
  30   }
  31   if (err)
  32     abort ();
  33   #pragma omp target data map(to:b) use_device_addr(b) map(from:err)
  34   #pragma omp target is_device_ptr(b) private(i) map(from:err)
  35   {
  36     err = 0;
  37     for (i = 0; i < n; i++)
  38       if (b[i] != 9 + i)
  39         err = 1;
  40   }
  41   if (err)
  42     abort ();
  43   #pragma omp target data use_device_addr(c) map(to:c) map(from:err)
  44   #pragma omp target is_device_ptr(c) private(i) map(from:err)
  45   {
  46     err = 0;
  47     for (i = 0; i < 3; i++)
  48       if (c[i] != 20 + i)
  49         err = 1;
  50   }
  51   if (err)
  52     abort ();
  53   #pragma omp target data map(to:s[:5]) use_device_addr(s) map(from:err)
  54   #pragma omp target is_device_ptr(s) private(i) map(from:err)
  55   {
  56     err = 0;
  57     for (i = 0; i < 5; i++)
  58       if (s[i] != 17 + i)
  59         err = 1;
  60   }
  61   if (err)
  62     abort ();
  63   #pragma omp target data use_device_addr (v) map(to: v) map(to:u) use_device_addr (u) map(from:err)
  64   {
  65     int *z = &v;
  66     S *x = &u;
  67     #pragma omp target is_device_ptr (z, x) map(from:err)
  68     {
  69       err = 0;
  70       if (*z != 27 || x->e != 25 || x->f != 26)
  71         err = 1;
  72     }
  73   }
  74   if (err)
  75     abort ();
  76   #pragma omp target data map(to: t) use_device_addr (t, w) map (to: w) map(from:err)
  77   {
  78     int *z = &t;
  79     S *x = &w;
  80     #pragma omp target is_device_ptr (z) is_device_ptr (x) map(from:err)
  81     {
  82       err = 0;
  83       if (*z != 24 || x->e != 28 || x->f != 29)
  84         err = 1;
  85     }
  86   }
  87   if (err)
  88     abort ();
  89 }
  90
  91 int
  92 main ()
  93 {
  94   int a[4] = { 0, 1, 2, 3 }, b[5] = { 17, 18, 19, 20, 21 };
  95   int *p = a + 1;
  96   int t = 24;
  97   S u = { 25, 26 };
  98   foo (p, b, t, u, 9);
  99 }