From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 20392 invoked by alias); 7 Jul 2010 13:15:44 -0000 Received: (qmail 20296 invoked by uid 48); 7 Jul 2010 13:15:29 -0000 Date: Wed, 07 Jul 2010 13:15:00 -0000 Message-ID: <20100707131529.20295.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/43945] [OOP] Derived type with GENERIC: resolved to the wrong specific TBP In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "sfilippone at uniroma2 dot it" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2010-07/txt/msg00725.txt.bz2 ------- Comment #26 from sfilippone at uniroma2 dot it 2010-07-07 13:15 ------- (In reply to comment #25) This fixes test_vt2 but not test_coo. Will keep investigating.....(and of course it should be done for functions as well as subroutines...) Index: gcc/fortran/resolve.c =================================================================== --- gcc/fortran/resolve.c (revisione 161820) +++ gcc/fortran/resolve.c (copia locale) @@ -5593,7 +5593,7 @@ gfc_symbol *vtab; vtab = gfc_find_derived_vtab (declared, true); gcc_assert (vtab); - gfc_add_component_ref (code->expr1, genname); + /* gfc_add_component_ref (code->expr1, genname); */ } gfc_add_component_ref (code->expr1, name); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43945