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