Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.28.3.f90
blob: a337f3bc7d547d2dacc6fc7dedda3b0dc47349f9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
PROGRAM A28_3
EQUIVALENCE
(
X
,
Y
)
X
=
1.0
!
$OMP PARALLEL PRIVATE
(
X
)
PRINT
*,
Y
!
Y
is
undefined
Y
=
10
PRINT
*,
X
!
X
is
undefined
!
$OMP
END
PARALLEL
END
PROGRAM A28_3