diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2008-11-01 22:56:27 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2008-11-01 22:56:27 +0100 |
| commit | 6f6e26a8808c73f6603b3e64e2009c1c290058d8 (patch) | |
| tree | c1bb0e6b31e1bb65c54e2d2a8eeaa3fe36e87532 /gcc/fortran/resolve.c | |
| parent | f18e0ca6dc275a9af20034f7970de628f8bf9b03 (diff) | |
| download | gcc-6f6e26a8808c73f6603b3e64e2009c1c290058d8.zip gcc-6f6e26a8808c73f6603b3e64e2009c1c290058d8.tar.gz gcc-6f6e26a8808c73f6603b3e64e2009c1c290058d8.tar.bz2 | |
re PR fortran/36426 (Endless loop in gfc_apply_interface_mapping_to_expr)
2008-11-01 Janus Weil <janus@gcc.gnu.org>
PR fortran/36426
* expr.c (replace_symbol): Replace all symbols which lie in the
formal namespace of the interface and copy their attributes.
* resolve.c (resolve_symbol): Add charlen to namespace.
2008-11-01 Janus Weil <janus@gcc.gnu.org>
PR fortran/36426
* gfortran.dg/proc_decl_19.f90: New.
From-SVN: r141522
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c03f6a6..bf21416 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8939,6 +8939,12 @@ resolve_symbol (gfc_symbol *sym) sym->ts.cl->resolved = ifc->ts.cl->resolved; sym->ts.cl->length = gfc_copy_expr (ifc->ts.cl->length); gfc_expr_replace_symbols (sym->ts.cl->length, sym); + /* Add charlen to namespace. */ + if (sym->formal_ns) + { + sym->ts.cl->next = sym->formal_ns->cl_list; + sym->formal_ns->cl_list = sym->ts.cl; + } } } else if (sym->ts.interface->name[0] != '\0') |