Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
clang-tests
/
gcc-4_2-testsuite
/
src
/
gcc.dg
/
gomp
/
appendix-a
/
a.33.1.c
blob: 99c06da6a5dc305f2153c7b5950c75b983091fba [
file
] [
log
] [
blame
]
/* { dg-do compile } */
/* { dg-require-effective-target tls } */
#include
<stdio.h>
float
x
,
y
;
#pragma
omp threadprivate
(
x
,
y
)
void
init
(
float
a
,
float
b
)
{
#pragma
omp single copyprivate
(
a
,
b
,
x
,
y
)
{
scanf
(
"%f %f %f %f"
,
&
a
,
&
b
,
&
x
,
&
y
);
}
}