diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-08-28 07:35:15 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-08-28 07:35:15 +0200 |
| commit | a433d31f14ff338e05d189db67d60525c627a33b (patch) | |
| tree | a999261bedb2c8cb11cc253ce914d31160f34435 /gcc/fortran | |
| parent | 1773cd776ad33ff4688ff29437ec716eda0e58e6 (diff) | |
| download | gcc-a433d31f14ff338e05d189db67d60525c627a33b.zip gcc-a433d31f14ff338e05d189db67d60525c627a33b.tar.gz gcc-a433d31f14ff338e05d189db67d60525c627a33b.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/symbol.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 68d1f75..2b31677 100644 --- 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 4d030b7..5e97c40 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) { |