mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-14 17:30:21 +00:00
37 lines
486 B
C
37 lines
486 B
C
extern "C" 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;
|
|
}
|