[Bug fortran/117768] [15 regression] ICE in diagnostic_impl (?)

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

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

--- Comment #1 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 59696
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=59696&action=edit
Reproducer, 70 lines