diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2017-04-14 23:17:52 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2017-04-14 23:17:52 +0200 |
| commit | 4307649214f90df9a4452acaf4224399066194c6 (patch) | |
| tree | 803625882c25c0e197373ef31279b97b4ba1cd1a /gcc/fortran/class.c | |
| parent | dd3d6a42fcd881b1f4f8fbd6cc82c1f14124b317 (diff) | |
| download | gcc-4307649214f90df9a4452acaf4224399066194c6.zip gcc-4307649214f90df9a4452acaf4224399066194c6.tar.gz gcc-4307649214f90df9a4452acaf4224399066194c6.tar.bz2 | |
re PR fortran/80361 ([OOP] bogus recursive call to nonrecursive procedure with -fcheck=recursion)
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.
From-SVN: r246934
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index d507e22..2d72e95 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -1613,6 +1613,7 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns, final->attr.flavor = FL_PROCEDURE; final->attr.function = 1; final->attr.pure = 0; + final->attr.recursive = 1; final->result = final; final->ts.type = BT_INTEGER; final->ts.kind = 4; |