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
