[Bug fortran/89174] [8/9 Regression] Allocation segfault with CLASS(*) MOLD

[tkoenig at gcc dot gnu.org]

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

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Thomas Koenig from comment #7)
> This patch makes the test case work again:

This also introduces numerous regressions, so this is not recommended
as a fix :-)