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