Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.c/task-6.c
2023-03-06 14:48:14 +01:00

47 lines
704 B
C

#include <stdlib.h>
#include <unistd.h>
int
main ()
{
int x = 0, y = 0;
#pragma omp parallel shared(x, y)
#pragma omp master
{
#pragma omp task depend(out:y) shared(x, y)
{
sleep (1);
x = 1;
y = 1;
}
#pragma omp task depend(inout:y) shared(x, y)
{
if (x != 1 || y != 1)
abort ();
y++;
}
}
if (x != 1 || y != 2)
abort ();
x = 0;
y = 0;
#pragma omp parallel
#pragma omp master
{
#pragma omp task depend(out:y)
{
sleep (1);
x = 1;
y = 1;
}
#pragma omp task depend(inout:y)
{
if (x != 1 || y != 1)
abort ();
y++;
}
}
if (x != 1 || y != 2)
abort ();
return 0;
}