Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.33.1.f90
blob: a161d5441d5c5c7d99f0cc243628ab9637aef1f8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
require
-
effective
-
target tls_native
}
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
