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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190892 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3c1b196..c1de983 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,11 @@
 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
        generation of the "_final" subroutine for now.
 

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 5943ab8..dca2cfc 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: