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

[juergen.reuter at desy dot de]

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

--- Comment #23 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Our code and testsuite now works without problems when using -fcheck=all. 
Seems also no regressions on our side. Thanks for the quick fix.