[Bug fortran/87359] [9 regression] pointer being freed was not allocated

[juergen.reuter at desy dot de]

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

--- Comment #38 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 44745
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44745&action=edit
Small reproducer for the second problem

And an 89 line small reproducer for the second problem.