Sign in
llvm
/
llvm-archive
/
b74e25f9042d5657e8f400dd820eba426827f1dd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.23.1.f90
blob: 6eab6872985cae5b5929670d511ef1cee5d10ad8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A23_1_GOOD
()
COMMON
/
C
/
X
,
Y
REAL X
,
Y
!
$OMP PARALLEL PRIVATE
(
/C/
)
!
do
work here
!
$OMP
END
PARALLEL
!
$OMP PARALLEL SHARED
(
X
,
Y
)
!
do
work here
!
$OMP
END
PARALLEL
END
SUBROUTINE A23_1_GOOD
