Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
lto
/
pr41576_0.f90
blob: 609c17ed20a5e4900dc78c394ad9d1c70abcf419 [
file
] [
log
] [
blame
]
!
{
dg
-
lto
-
do
run
}
!
{
dg
-
lto
-
options
{
{
-
O2
-
flto
-
Werror
-
Wno
-
lto
-
type
-
mismatch
}
}
}
subroutine foo
common
/
bar
/
a
,
b
integer
(
4
)
::
a
,
b
a
=
1
b
=
2
end