From 6df74ab4271c036e5c80aa5b67104c98c0dda1d5 Mon Sep 17 00:00:00 2001 From: janus Date: Mon, 7 Nov 2011 18:41:12 +0000 Subject: 2011-11-07 Janus Weil PR fortran/50919 * class.c (add_proc_comp): Don't add non-overridable procedures to the vtable. * resolve.c (resolve_typebound_function,resolve_typebound_subroutine): Don't generate a dynamic _vptr call for non-overridable procedures. 2011-11-07 Janus Weil PR fortran/50919 * gfortran.dg/typebound_call_21.f03: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181107 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/class.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/fortran/class.c') diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index f64cc1b2a81..574d22b0b12 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -288,6 +288,10 @@ static void add_proc_comp (gfc_symbol *vtype, const char *name, gfc_typebound_proc *tb) { gfc_component *c; + + if (tb->non_overridable) + return; + c = gfc_find_component (vtype, name, true, true); if (c == NULL) -- cgit v1.2.1