[Bug fortran/84141] [8.0.1 regression] Internal error: type_name(): Bad type

[juergen.reuter at desy dot de]

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

--- Comment #10 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 43307
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=43307&action=edit
Reproducer_2, a little smaller