[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 #15 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 43311
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=43311&action=edit
Isolated file: small reproducer, 250 lines

This should print 
 1: 2: INSIDE MCI_VAMP_WRITE
 VAMP integrator:
 calling base write
 Grid parameters:
 calling grid parameter write
 calling vamp equivalences write
 i =            1
     Permutation: 1
 i =            2
     Permutation: 1
 i =            3
     Permutation: 1
 i =            4
     Permutation: 1

but gives a RT error:
 1: 2: INSIDE MCI_VAMP_WRITE
 VAMP integrator:
 calling base write
 Grid parameters:
 calling grid parameter write
 calling vamp equivalences write
 i =            1
Internal Error: type_name(): Bad type

Error termination. Backtrace:
#0  0x10fbe564c
#1  0x10fbe62e5
#2  0x10fbe679d
#3  0x10fdb7e46
#4  0x10fdb7ec8
#5  0x10fdbac40
#6  0x10fdbb1b4
#7  0x10fdb8258
#8  0x10fbdb4ff
#9  0x10fbdb39e
#10  0x10fbdd3a9
#11  0x10fbde05a
#12  0x10fbde33e
#13  0x10fbde376