[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 #21 from janus at gcc dot gnu.org ---
Author: janus
Date: Fri Apr 14 21:17:52 2017
New Revision: 246934

URL: https://gcc.gnu.org/viewcvs?rev=246934&root=gcc&view=rev
Log:
2017-04-14  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/80361
        * class.c (generate_finalization_wrapper): Give the finalization
wrapper
        the recursive attribute.

2017-04-14  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/80361
        * gfortran.dg/class_62.f90: New test case.

Added:
    trunk/gcc/testsuite/gfortran.dg/class_62.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/class.c
    trunk/gcc/testsuite/ChangeLog