[Bug fortran/40873] -fwhole-file -fwhole-program: Wrong decls cause too much to be optimized away

[fxcoudert at gcc dot gnu dot org]

------- Comment #16 from fxcoudert at gcc dot gnu dot org  2010-06-09 22:10 
-------
Another one that fails:


subroutine func (x)
  use demo
  integer :: x
  x = 999
end subroutine func

subroutine foo
  interface
    subroutine func(x)
      integer :: x
   end subroutine func
  end interface

  integer :: x
  call func(x)
  if (x /= 999) call abort ()

end subroutine foo

program test
  call foo
end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40873