Retro68/gcc/libgomp/testsuite/libgomp.c/target-8.c
2017-04-10 13:32:00 +02:00

26 lines
381 B
C

/* { dg-do run } */
void
foo (int *p)
{
int i;
#pragma omp parallel
#pragma omp single
#pragma omp target teams distribute parallel for map(p[0:24])
for (i = 0; i < 24; i++)
p[i] = p[i] + 1;
}
int
main ()
{
int p[24], i;
for (i = 0; i < 24; i++)
p[i] = i;
foo (p);
for (i = 0; i < 24; i++)
if (p[i] != i + 1)
__builtin_abort ();
return 0;
}