[Bug fortran/46262] [4.6 Regression] [OOP] tree check: expected function_type or method_type, have pointer_type

[jvdelisle at gcc dot gnu.org]

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

--- Comment #8 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2010-11-28 
15:52:06 UTC ---
Specifically, this line is involved with the problem.

Index: resolve.c
===================================================================
--- resolve.c    (revision 167220)
+++ resolve.c    (working copy)
@@ -5739,7 +5739,6 @@ resolve_typebound_function (gfc_expr* e)
       e->symtree = expr->symtree;
       e->ref = gfc_copy_ref (expr->ref);
       gfc_add_vptr_component (e);
-      gfc_add_component_ref (e, name);
       e->value.function.esym = NULL;
       return SUCCESS;
     }