[Bug lto/89084] [9 Regression] ICE in get_partitioning_class, at symtab.c:1892

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89084

--- Comment #4 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
integer function foo ( )
  write (*,*) 'foo'
  block
    integer, parameter :: idxs(3) = (/ 1, 2, 3 /)
    integer :: i
    foo = 0
    do i = 1, size(idxs)
      foo = foo + idxs(i)
    enddo
  end block
end function foo

with -O0 and no -flto (with -O0 -flto ICEs) doesn't ICE, but has undefined
symbol like idxs.12345.  Strangely that goes away if the write statement is
removed.