[Bug middle-end/115528] [15 regression] segmentation fault in legacy F77 code since r15-1238-g1fe55a1794863b

[juergen.reuter at desy dot de via Gcc-bugs]

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

--- Comment #19 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 58476
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=58476&action=edit
First independent reproducer