[Bug fortran/61831] [4.9/ 4.10 Regression] runtime error: pointer being freed was not allocated

[juergen.reuter at desy dot de]

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

--- Comment #13 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 33140
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=33140&action=edit
Abridged and hopefully working test case.

In the middle of reducing the test case.