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

[vehre at gcc dot gnu.org]

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

--- Comment #12 from vehre at gcc dot gnu.org ---
Created attachment 35806
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35806&action=edit
Incomplete patch

The attached patch addresses some of the issues, but unfortunately does it open
some regressions in allocate_with_source_7 and allocate_with_source_8. I also
feel it is too much tailored to problem at hand, but may be it rings a bell...