142 lines
2.1 KiB
C
142 lines
2.1 KiB
C
/* { dg-do run } */
|
|
|
|
#include <stdlib.h>
|
|
|
|
int
|
|
main (int argc, char *argv[])
|
|
{
|
|
#define N 10
|
|
char a[N];
|
|
int i;
|
|
|
|
for (i = 0; i < N; ++i)
|
|
a[i] = 0;
|
|
|
|
#pragma acc data copy (a)
|
|
{
|
|
#pragma acc parallel present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
a[i] = 0;
|
|
|
|
#pragma acc data copy (a)
|
|
{
|
|
#pragma acc kernels present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
a[i] = 0;
|
|
|
|
#pragma acc data copy (a)
|
|
{
|
|
#pragma acc data present (a)
|
|
{
|
|
#pragma acc parallel present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
#pragma acc data copy (a)
|
|
{
|
|
#pragma acc data present (a)
|
|
{
|
|
#pragma acc kernels present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
for (i = 0; i < N; ++i)
|
|
a[i] = 0;
|
|
|
|
#pragma acc enter data copyin (a)
|
|
|
|
#pragma acc data present (a)
|
|
{
|
|
#pragma acc parallel present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
|
|
#pragma acc exit data copyout (a)
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
#pragma acc enter data copyin (a)
|
|
|
|
#pragma acc data present (a)
|
|
{
|
|
#pragma acc kernels present (a)
|
|
{
|
|
int j;
|
|
|
|
for (j = 0; j < N; ++j)
|
|
a[j] = j;
|
|
}
|
|
}
|
|
|
|
#pragma acc exit data copyout (a)
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
if (a[i] != i)
|
|
abort ();
|
|
}
|
|
|
|
return 0;
|
|
}
|