[Bug fortran/66578] [F2008] Invalid free on allocate(...,source=a(:)) in block

[mikael at gcc dot gnu.org]

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

--- Comment #10 from Mikael Morin <mikael at gcc dot gnu.org> ---
(In reply to Thomas Koenig from comment #9)
> Unfortunately, this does not appear to fix the bug (at least not completely).
> I still get an invalid free.

Indeed, unfortunately this:

(In reply to Mikael Morin from comment #7)
> Don't care about the scalarizer; generate a correct descriptor to begin
> with, and the scalarizer will follow (hopefully).

is not true.