Retro68/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-initial-1.c
2017-04-10 13:32:00 +02:00

26 lines
303 B
C

/* { dg-do run } */
int
main(void)
{
#define I 5
#define N 32
#define A 8
int a = A;
int s = I;
#pragma acc parallel vector_length(N) copy(s)
{
int i;
#pragma acc loop reduction(+:s)
for (i = 0; i < N; ++i)
s += a;
}
if (s != I + N * A)
__builtin_abort();
return 0;
}