aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90
blob: 6aefcc875e34c85004d1ed58e5e0e8c280774471 (plain)
1
2
3
4
5
6
7
program test
  common /bar/ c, d
  integer(4) :: c, d
  call foo
  if (c/=1 .or. d/=2) call abort
end program test