[Bug fortran/80361] [5/6/7 Regression] bogus recursive call to nonrecursive procedure with -fcheck=recursion

[janus at gcc dot gnu.org]

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

--- Comment #17 from janus at gcc dot gnu.org ---
(In reply to janus from comment #16)
> This seems to be sufficient to fix the runtime error on the reduced test
> case in comment #13:

And it also does the trick for PR 67505 ...