[Bug fortran/84546] [7/8 Regression] Bad sourced allocation of CLASS(*) with source with CLASS(*) component

[tkoenig at gcc dot gnu.org]

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

--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This is a rather old regression, r247548 already has it.