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

[tkoenig at gcc dot gnu.org]

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

--- Comment #14 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Mikael Morin from comment #13)
> Created attachment 35823 [details]
> next attempt

Looks very good (fixes the test case and the variants I have here).

Regression-testing next.