[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 #13 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 44732
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44732&action=edit
Promised shorted reproducer, 93 lines

This is the promised shortened reproducer, 93 lines long. This should make it
easier to find the problem.