[Bug fortran/70040] ICE in gimplify.c with deferred-length strings

[martin@mpa-garching.mpg.de]

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

--- Comment #2 from Martin Reinecke <martin@mpa-garching.mpg.de> ---
Created attachment 37842
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37842&action=edit
further reduced test case