From bda2b772170fcafd0adbcc1c022373f8247a7be7 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 3 Sep 2012 16:06:27 +0200 Subject: [PATCH] re PR fortran/54467 (f951: internal compiler error: in gfc_add_component_ref, at fortran/class.c:213) 2012-09-03 Tobias Burnus PR fortran/54467 * class.c (gfc_find_derived_vtab): Fix disabling of _final by continuing to generate normal type-bound procedures. From-SVN: r190892 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/class.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3c1b1966af33..c1de98336292 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2012-09-03 Tobias Burnus + + PR fortran/54467 + * class.c (gfc_find_derived_vtab): Fix disabling of _final + by continuing to generate normal type-bound procedures. + 2012-09-03 Tobias Burnus * class.c (gfc_find_derived_vtab): Disable ABI-breaking diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 5943ab835bb9..dca2cfc1cdae 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -1634,10 +1634,10 @@ gfc_find_derived_vtab (gfc_symbol *derived) c->tb = XCNEW (gfc_typebound_proc); c->tb->ppc = 1; generate_finalization_wrapper (derived, ns, tname, c); + } /* Add procedure pointers for type-bound procedures. */ add_procs_to_declared_vtab (derived, vtype); - } } have_vtype: -- 2.47.2