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.
