re PR fortran/54384 (gfortran memory leaks)

2012-08-28  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54384
        * symbol.c (gfc_copy_formal_args): Set also sym->formal_ns.

From-SVN: r190738

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 68d1f75c03dddad8c4c44de4d78779f4f502f131..2b316774906e25383266fe6eb8800e368fe6cb4c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-28  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/54384
+       * symbol.c (gfc_copy_formal_args): Set also sym->formal_ns.
+
 2012-08-27  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/54384

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 4d030b76fc1ed85addc93a35aa12dccfbfd4390a..5e97c4086d103b7a29b8d4754a81450e6bc937ea 100644 (file)
--- 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)
     {