Retro68/gcc/libgomp/testsuite/libgomp.c/task-2.c
Wolfgang Thaller aaf905ce07 add gcc 4.70
2012-03-28 01:13:14 +02:00

54 lines
628 B
C

extern void abort (void);
int
f1 (void)
{
int a = 6, e = 0;
int nested (int x)
{
return x + a;
}
#pragma omp task
{
int n = nested (5);
if (n != 11)
#pragma omp atomic
e += 1;
}
#pragma omp taskwait
return e;
}
int
f2 (void)
{
int a = 6, e = 0;
int nested (int x)
{
return x + a;
}
a = nested (4);
#pragma omp task
{
if (a != 10)
#pragma omp atomic
e += 1;
}
#pragma omp taskwait
return e;
}
int
main (void)
{
int e = 0;
#pragma omp parallel num_threads(4) reduction(+:e)
{
e += f1 ();
e += f2 ();
}
if (e)
abort ();
return 0;
}