Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
libgomp
/
testsuite
/
libgomp.c
/
examples-4
/
task_dep-2.c
blob: f583f0978e2707e89c5207c6270fc4ee8a005305 [
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
(
in
:
x
)
if
(
x
!=
1
)
abort
();
#pragma
omp task shared
(
x
)
depend
(
out
:
x
)
x
=
2
;
}
return
0
;
}