re PR fortran/54467 (f951: internal compiler error: in gfc_add_component_ref, at...

2012-09-03  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54467
        * class.c (gfc_find_derived_vtab): Fix disabling of _final
        by continuing to generate normal type-bound procedures.

From-SVN: r190892

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3c1b1966af33745d890cfb2aa636401fd8a5b4dd..c1de9833629241a8db5eddc9d91085b8c5f296de 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-09-03  Tobias Burnus  <burnus@net-b.de>
+
+       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  <burnus@net-b.de>
 
        * class.c (gfc_find_derived_vtab): Disable ABI-breaking

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 5943ab835bb9ec49e959888b7cd93efd23e62367..dca2cfc1cdae8db7952a5a9b96827cb416cc5fe5 100644 (file)
--- 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: