Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.33.1.f90
blob: 05145b1715f460339ff61ecca233361d64f303bf [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
require
-
effective
-
target tls
}
SUBROUTINE INIT
(
A
,
B
)
REAL A
,
B
COMMON
/
XY
/
X
,
Y
!
$OMP THREADPRIVATE
(
/XY/
)
!
$OMP SINGLE
READ
(
11
)
A
,
B
,
X
,
Y
!
$OMP
END
SINGLE COPYPRIVATE
(
A
,
B
,
/XY/
)
END
SUBROUTINE INIT