Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.23.4.f90
blob: 8c6e2281d17ffba645780f06224f071c5130e000 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A23_4_WRONG
()
COMMON
/
C
/
X
,
Y
!
Incorrect
because X
is
a constituent element of C
!
$OMP PARALLEL PRIVATE
(
/C/
),
SHARED
(
X
)
!
{
dg
-
error
"Symbol 'x' present"
}
!
do
work here
!
$OMP
END
PARALLEL
END
SUBROUTINE A23_4_WRONG