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

extern "C" void abort ();
struct T { char t[270]; };
struct S { int (&x)[10]; int *&y; T t; int &z; S (); ~S (); };

template <int N>
void
foo (S s)
{
  int err;
  #pragma omp target map (s.x[0:N], s.y, s.y[0:N]) map (s.t.t[16:3]) map (from: err)
  {
    err = s.x[2] != 28 || s.y[2] != 37 || s.t.t[17] != 81;
    s.x[2]++;
    s.y[2]++;
    s.t.t[17]++;
  }
  if (err || s.x[2] != 29 || s.y[2] != 38 || s.t.t[17] != 82)
    abort ();
}

template <int N>
void
bar (S s)
{
  int err;
  #pragma omp target map (s.x, s.z)map(from:err)
  {
    err = s.x[2] != 29 || s.z != 6;
    s.x[2]++;
    s.z++;
  }
  if (err || s.x[2] != 30 || s.z != 7)
    abort ();
}

template <int N>
void
foo2 (S &s)
{
  int err;
  #pragma omp target map (s.x[N:10], s.y, s.y[N:10]) map (from: err) map (s.t.t[N+16:N+3])
  {
    err = s.x[2] != 30 || s.y[2] != 38 || s.t.t[17] != 81;
    s.x[2]++;
    s.y[2]++;
    s.t.t[17]++;
  }
  if (err || s.x[2] != 31 || s.y[2] != 39 || s.t.t[17] != 82)
    abort ();
}

template <int N>
void
bar2 (S &s)
{
  int err;
  #pragma omp target map (s.x, s.z)map(from:err)
  {
    err = s.x[2] != 31 || s.z != 7;
    s.x[2]++;
    s.z++;
  }
  if (err || s.x[2] != 32 || s.z != 8)
    abort ();
}

template <typename U>
void
foo3 (U s)
{
  int err;
  #pragma omp target map (s.x[0:10], s.y, s.y[0:10]) map (from: err) map (s.t.t[16:3])
  {
    err = s.x[2] != 32 || s.y[2] != 39 || s.t.t[17] != 82;
    s.x[2]++;
    s.y[2]++;
    s.t.t[17]++;
  }
  if (err || s.x[2] != 33 || s.y[2] != 40 || s.t.t[17] != 83)
    abort ();
}

template <typename U>
void
bar3 (U s)
{
  int err;
  #pragma omp target map (s.x, s.z)map(from:err)
  {
    err = s.x[2] != 33 || s.z != 8;
    s.x[2]++;
    s.z++;
  }
  if (err || s.x[2] != 34 || s.z != 9)
    abort ();
}

template <typename U>
void
foo4 (U &s)
{
  int err;
  #pragma omp target map (s.x[0:10], s.y, s.y[0:10]) map (from: err) map (s.t.t[16:3])
  {
    err = s.x[2] != 34 || s.y[2] != 40 || s.t.t[17] != 82;
    s.x[2]++;
    s.y[2]++;
    s.t.t[17]++;
  }
  if (err || s.x[2] != 35 || s.y[2] != 41 || s.t.t[17] != 83)
    abort ();
}

template <typename U>
void
bar4 (U &s)
{
  int err;
  #pragma omp target map (s.x, s.z)map(from:err)
  {
    err = s.x[2] != 35 || s.z != 9;
    s.x[2]++;
    s.z++;
  }
  if (err || s.x[2] != 36 || s.z != 10)
    abort ();
}

int xt[10] = { 1, 2, 28, 3, 4, 5, 6, 7, 8, 9 };
int yt[10] = { 1, 2, 37, 3, 4, 5, 6, 7, 8, 9 };
int *yp = yt;
int zt = 6;

S::S () : x (xt), y (yp), z (zt)
{
}

S::~S ()
{
}

int
main ()
{
  S s;
  s.t.t[16] = 5;
  s.t.t[17] = 81;
  s.t.t[18] = 9;
  foo <10> (s);
  if (s.t.t[17] != 81)
    abort ();
  bar <7> (s);
  foo2 <0> (s);
  if (s.t.t[17] != 82)
    abort ();
  bar2 <21> (s);
  foo3 <S> (s);
  if (s.t.t[17] != 82)
    abort ();
  bar3 <S> (s);
  foo4 <S> (s);
  if (s.t.t[17] != 83)
    abort ();
  bar4 <S> (s);
  s.x[2] -= 4;
  s.y[2] -= 2;
  s.z -= 2;
  s.t.t[17]--;
  foo3 <S &> (s);
  if (s.t.t[17] != 83)
    abort ();
  bar3 <S &> (s);
}