[Bug fortran/87430] [7/8/9 Regression] ICE in fortran/trans-types.c:1157

[janus at gcc dot gnu.org]

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

--- Comment #2 from janus at gcc dot gnu.org ---
Slightly reduced/modified test case:


subroutine lexical_preprocessing(elements)
  implicit none
  character(len=10), dimension(:) :: elements

  do i=2, size(elements)
    associate(el => elements(i))
      print *, el(1:2)
    end associate
  end do
end subroutine