From a433d31f14ff338e05d189db67d60525c627a33b Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 28 Aug 2012 07:35:15 +0200 Subject: [PATCH] re PR fortran/54384 (gfortran memory leaks) 2012-08-28 Tobias Burnus PR fortran/54384 * symbol.c (gfc_copy_formal_args): Set also sym->formal_ns. From-SVN: r190738 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/symbol.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 68d1f75c03d..2b316774906 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-08-28 Tobias Burnus + + PR fortran/54384 + * symbol.c (gfc_copy_formal_args): Set also sym->formal_ns. + 2012-08-27 Tobias Burnus PR fortran/54384 diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 4d030b76fc1..5e97c4086d1 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -4103,6 +4103,7 @@ gfc_copy_formal_args (gfc_symbol *dest, gfc_symbol *src, ifsrc if_src) of the formal args). */ gfc_current_ns = gfc_get_namespace (parent_ns, 0); gfc_current_ns->proc_name = dest; + dest->formal_ns = gfc_current_ns; for (curr_arg = src->formal; curr_arg; curr_arg = curr_arg->next) { -- 2.30.2