Sign in
llvm
/
llvm-archive
/
b27750562fbd1387d22f4bec79e1744409e153d5
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
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
);
}
}