Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.28.1.f90
blob: c271333a86d5ac750493902a00b391d1a364280f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
SUBROUTINE SUB
()
COMMON
/
BLOCK
/
X
PRINT
*,
X
!
X
is
undefined
END
SUBROUTINE SUB
PROGRAM A28_1
COMMON
/
BLOCK
/
X
X
=
1.0
!
$OMP PARALLEL PRIVATE
(
X
)
X
=
2.0
CALL SUB
()
!
$OMP
END
PARALLEL
END
PROGRAM A28_1