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

   1 extern "C" void abort ();
   2 struct T { char t[270]; };
   3 struct S { int (&x)[10]; int *&y; T t; int &z; S (); ~S (); };
   4
   5 template <int N>
   6 void
   7 foo (S s)
   8 {
   9   int err;
  10   #pragma omp target map (s.x[0:N], s.y[0:N]) map (s.t.t[16:3]) map (from: err)
  11   {
  12     err = s.x[2] != 28 || s.y[2] != 37 || s.t.t[17] != 81;
  13     s.x[2]++;
  14     s.y[2]++;
  15     s.t.t[17]++;
  16   }
  17   if (err || s.x[2] != 29 || s.y[2] != 38 || s.t.t[17] != 82)
  18     abort ();
  19 }
  20
  21 template <int N>
  22 void
  23 bar (S s)
  24 {
  25   int err;
  26   #pragma omp target map (s.x, s.z)map(from:err)
  27   {
  28     err = s.x[2] != 29 || s.z != 6;
  29     s.x[2]++;
  30     s.z++;
  31   }
  32   if (err || s.x[2] != 30 || s.z != 7)
  33     abort ();
  34 }
  35
  36 template <int N>
  37 void
  38 foo2 (S &s)
  39 {
  40   int err;
  41   #pragma omp target map (s.x[N:10], s.y[N:10]) map (from: err) map (s.t.t[N+16:N+3])
  42   {
  43     err = s.x[2] != 30 || s.y[2] != 38 || s.t.t[17] != 81;
  44     s.x[2]++;
  45     s.y[2]++;
  46     s.t.t[17]++;
  47   }
  48   if (err || s.x[2] != 31 || s.y[2] != 39 || s.t.t[17] != 82)
  49     abort ();
  50 }
  51
  52 template <int N>
  53 void
  54 bar2 (S &s)
  55 {
  56   int err;
  57   #pragma omp target map (s.x, s.z)map(from:err)
  58   {
  59     err = s.x[2] != 31 || s.z != 7;
  60     s.x[2]++;
  61     s.z++;
  62   }
  63   if (err || s.x[2] != 32 || s.z != 8)
  64     abort ();
  65 }
  66
  67 template <typename U>
  68 void
  69 foo3 (U s)
  70 {
  71   int err;
  72   #pragma omp target map (s.x[0:10], s.y[0:10]) map (from: err) map (s.t.t[16:3])
  73   {
  74     err = s.x[2] != 32 || s.y[2] != 39 || s.t.t[17] != 82;
  75     s.x[2]++;
  76     s.y[2]++;
  77     s.t.t[17]++;
  78   }
  79   if (err || s.x[2] != 33 || s.y[2] != 40 || s.t.t[17] != 83)
  80     abort ();
  81 }
  82
  83 template <typename U>
  84 void
  85 bar3 (U s)
  86 {
  87   int err;
  88   #pragma omp target map (s.x, s.z)map(from:err)
  89   {
  90     err = s.x[2] != 33 || s.z != 8;
  91     s.x[2]++;
  92     s.z++;
  93   }
  94   if (err || s.x[2] != 34 || s.z != 9)
  95     abort ();
  96 }
  97
  98 template <typename U>
  99 void
 100 foo4 (U &s)
 101 {
 102   int err;
 103   #pragma omp target map (s.x[0:10], s.y[0:10]) map (from: err) map (s.t.t[16:3])
 104   {
 105     err = s.x[2] != 34 || s.y[2] != 40 || s.t.t[17] != 82;
 106     s.x[2]++;
 107     s.y[2]++;
 108     s.t.t[17]++;
 109   }
 110   if (err || s.x[2] != 35 || s.y[2] != 41 || s.t.t[17] != 83)
 111     abort ();
 112 }
 113
 114 template <typename U>
 115 void
 116 bar4 (U &s)
 117 {
 118   int err;
 119   #pragma omp target map (s.x, s.z)map(from:err)
 120   {
 121     err = s.x[2] != 35 || s.z != 9;
 122     s.x[2]++;
 123     s.z++;
 124   }
 125   if (err || s.x[2] != 36 || s.z != 10)
 126     abort ();
 127 }
 128
 129 int xt[10] = { 1, 2, 28, 3, 4, 5, 6, 7, 8, 9 };
 130 int yt[10] = { 1, 2, 37, 3, 4, 5, 6, 7, 8, 9 };
 131 int *yp = yt;
 132 int zt = 6;
 133
 134 S::S () : x (xt), y (yp), z (zt)
 135 {
 136 }
 137
 138 S::~S ()
 139 {
 140 }
 141
 142 int
 143 main ()
 144 {
 145   S s;
 146   s.t.t[16] = 5;
 147   s.t.t[17] = 81;
 148   s.t.t[18] = 9;
 149   foo <10> (s);
 150   if (s.t.t[17] != 81)
 151     abort ();
 152   bar <7> (s);
 153   foo2 <0> (s);
 154   if (s.t.t[17] != 82)
 155     abort ();
 156   bar2 <21> (s);
 157   foo3 <S> (s);
 158   if (s.t.t[17] != 82)
 159     abort ();
 160   bar3 <S> (s);
 161   foo4 <S> (s);
 162   if (s.t.t[17] != 83)
 163     abort ();
 164   bar4 <S> (s);
 165   s.x[2] -= 4;
 166   s.y[2] -= 2;
 167   s.z -= 2;
 168   s.t.t[17]--;
 169   foo3 <S &> (s);
 170   if (s.t.t[17] != 83)
 171     abort ();
 172   bar3 <S &> (s);
 173 }