Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
libgomp
/
testsuite
/
libgomp.c
/
examples-4
/
task_dep-1.c
blob: 8d397a55e7c7d727727a1cd22e2b6b9aa2d20c32 [
file
] [
log
] [
blame
]
/* { dg-do run } */
#include
<stdlib.h>
int
main
()
{
int
x
=
1
;
#pragma
omp parallel
#pragma
omp single
{
#pragma
omp task shared
(
x
)
depend
(
out
:
x
)
x
=
2
;
#pragma
omp task shared
(
x
)
depend
(
in
:
x
)
if
(
x
!=
2
)
abort
();
}
return
0
;
}