[Bug fortran/36463] [4.4 regression] gfc_get_default_type(): Bad symbol

["mikael at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1048 bytes --]



------- Comment #15 from mikael at gcc dot gnu dot org  2008-11-17 22:19 -------
(In reply to comment #14)
I've just discovered I was paraphrasing Janus here:
http://gcc.gnu.org/ml/fortran/2008-10/msg00219.html

The error for comment #13 was introduced the patch in comment #10.
Knowing that, I tried this:

Index: expr.c
===================================================================
--- expr.c      (révision 141942)
+++ expr.c      (copie de travail)
@@ -3514,7 +3514,7 @@ replace_symbol (gfc_expr *expr, gfc_symbol *sym, i
       && expr->symtree->n.sym->ns == sym->ts.interface->formal_ns)
     {
       gfc_symtree *stree;
-      gfc_get_sym_tree (expr->symtree->name, sym->formal_ns, &stree);
+      gfc_get_sym_tree (expr->symtree->n.sym->name, sym->formal_ns, &stree);
       stree->n.sym->attr = expr->symtree->n.sym->attr;
       expr->symtree = stree;
     }

I don't know if it is solving the right problem, but at least the testcase in
comment #13 compiles with it. 


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36463