[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 #11 from Jürgen Reuter <juergen.reuter at desy dot de> ---
When you run the binary created (seg_prod), you'll get
| ============================================================================
| Running self-test: mci_vamp
| ----------------------------------------------------------------------------
Running test: mci_vamp_7Internal Error: type_name(): Bad type

Error termination. Backtrace:
#0  0x10d68a64c
#1  0x10d68b2e5
#2  0x10d68b79d
#3  0x10d85ce46
#4  0x10d85cec8
#5  0x10d85fc40
#6  0x10d8601b4
#7  0x10d85d258
#8  0x10d613690
#9  0x10d61347a
#10  0x10d659b44
#11  0x10d65ea5e
#12  0x10d5c649e
#13  0x10d6602c6
#14  0x10d6609ce
#15  0x10d6616d6
#16  0x10d661775