Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
debug
/
pr43166.f
blob: a3146150b9970e2a237fe75ed0442d384d603935 [
file
] [
log
] [
blame
]
C PR debug
/
43166
C
{
dg
-
do
compile
}
C
{
dg
-
options
"-O"
}
SUBROUTINE FOO
()
INTEGER V1
COMMON
// V1
END
SUBROUTINE BAR
()
INTEGER V0
,
V1
,
V2
,
V3
COMMON
// V1(4),V2(85,4),V3
DO V3
=
1
,
V1
(
1
)
V0
=
V2
(
V3
,
1
)
END
DO
END