Sign in
gnu
/
gcc
/
2c564e813c0626802e5bfb066c094933d5e6a774
/
.
/
libgomp
/
testsuite
/
libgomp.c++
/
single-1.C
blob: 221236f24f2ea75f7dec1b6655c50d951d2aa3ad [
file
] [
log
] [
blame
]
extern
"C"
void
abort
(
void
);
int
main
()
{
int
i
=
0
;
#pragma
omp parallel shared
(
i
)
{
#pragma
omp single
{
i
++;
}
}
if
(
i
!=
1
)
abort
();
return
0
;
}