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

37 lines
482 B
C

extern void abort (void);
int g;
#pragma omp declare target (g)
#pragma omp declare target
int
foo (void)
{
static int s;
return ++s + g;
}
#pragma omp end declare target
int
bar (void)
{
static int s;
#pragma omp declare target to (s)
return ++s;
}
#pragma omp declare target (bar)
int
main ()
{
int r;
#pragma omp target map(from:r)
{
r = (foo () == 1) + (bar () == 1);
r += (foo () == 2) + (bar () == 2);
}
if (r != 4)
abort ();
return 0;
}