[Bug fortran/80361] [7.0.1. regression] severe regression recursive call to nonrecursive procedure

[juergen.reuter at desy dot de]

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

--- Comment #7 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 41159
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41159&action=edit
Correct reproducer