Sign in
gnu
/
gcc
/
2c564e813c0626802e5bfb066c094933d5e6a774
/
.
/
libgomp
/
testsuite
/
libgomp.c++
/
tls-init1.C
blob: d62e96b95bfa165865afc3d40dfaa8df1045f657 [
file
] [
log
] [
blame
]
// { dg-require-alias }
extern
"C"
void
abort
();
struct
A
{
A
();
int
i
;
};
extern
A a
;
#pragma
omp threadprivate
(
a
)
A a
;
A
&
f
()
{
return
a
;
}
int
j
;
A
::
A
():
i
(
j
)
{
}
int
main
()
{
j
=
42
;
if
(
f
().
i
!=
42
)
abort
();
}