------- Comment #3 from burnus at gcc dot gnu dot org 2010-03-09 12:48 ------- Patch:
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 5370f0d..8aa57b6 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -4542,6 +4542,8 @@ get_iso_c_sym (gfc_symbol *old_sym, char *new_name, new_symtree->n.sym->module = gfc_get_string (old_sym->module); new_symtree->n.sym->from_intmod = old_sym->from_intmod; new_symtree->n.sym->intmod_sym_id = old_sym->intmod_sym_id; + if (old_sym->attr.function) + new_symtree->n.sym->result = new_symtree->n.sym; /* Build the formal arg list. */ build_formal_args (new_symtree->n.sym, old_sym, add_optional_arg); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43303
