[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 #4 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 41158
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41158&action=edit
Reproducer

Just unpack, do make, and then ./rt_error. Results in
$ ./rt_error
Running test: particle_specifiers_2At line 530 of file particle_specifiers.f90
Fortran runtime error: Recursive call to nonrecursive procedure
'__final_particle_specifiers_Prt_spec_list_t'

Error termination. Backtrace:
#0  0x1016692dc
#1  0x101669fe
instead of
Running test: particle_specifiers_2 ... success.
*** Test Summary ***
  Success:
    particle_specifiers_2: Particle specifier expressions
Total   = 1
Success = 1
Failure = 0
*** End of test Summary ***