URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr41576_0.f90] - Rev 801

! { dg-lto-do run }
! { dg-lto-options { { -O2 -flto -Werror } } }

subroutine foo
  common /bar/ a, b
  integer(4) :: a ,b
  a = 1
  b = 2
end