Retro68/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/nested-2.c
2015-08-28 17:33:40 +02:00

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;
}