85d8c05a02
Testing on the host does not make sense for 'declare copyout' for
a same-scope stack-allocated variable. Once the copyout is done,
the variable is gone. Hence, test the variable on the device. This
can be revisit after the OpenACC semantic has been fixed; but with
that fix, the test PASSes again with devices.
PR middle-end/94120
* testsuite/libgomp.oacc-c++/declare-pr94120.C: Fix 'declare copy(out)'
test case.
59 lines
861 B
C
59 lines
861 B
C
#include <openacc.h>
|
|
#include <stdlib.h>
|
|
|
|
#define N 8
|
|
|
|
namespace one {
|
|
int A[N] = { 1, 2, 3, 4, 5, 6, 7, 8 };
|
|
#pragma acc declare copyin (A)
|
|
};
|
|
|
|
namespace outer {
|
|
namespace inner {
|
|
int B[N];
|
|
#pragma acc declare create (B)
|
|
};
|
|
};
|
|
|
|
static void
|
|
f (void)
|
|
{
|
|
int i;
|
|
int C[N];
|
|
#pragma acc declare copyout (C)
|
|
|
|
if (!acc_is_present (&one::A, sizeof (one::A)))
|
|
abort ();
|
|
|
|
if (!acc_is_present (&outer::inner::B, sizeof (outer::inner::B)))
|
|
abort ();
|
|
|
|
#pragma acc parallel
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
outer::inner::B[i] = one::A[i];
|
|
C[i] = outer::inner::B[i];
|
|
}
|
|
|
|
#pragma acc parallel
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
if (C[i] != i + 1)
|
|
abort ();
|
|
}
|
|
|
|
#pragma acc parallel
|
|
for (i = 0; i < N; i++)
|
|
if (outer::inner::B[i] != i + 1)
|
|
abort ();
|
|
}
|
|
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
f ();
|
|
|
|
return 0;
|
|
}
|