Mikael Morin <mikael.morin@gcc.gnu.org>
PR fortran/58470
* class.c (generate_finalization_wrapper): Assert that proc_tree has
been set in gfc_resolve_finalizers.
* resolve.c (resolve_fl_derived0): Remove unnecessary call to
gfc_is_finalizable.
2014-02-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/58470
* gfortran.dg/finalize_22.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207636
138bc75d-0d04-0410-961f-
82ee72b054a4
+2014-02-08 Janus Weil <janus@gcc.gnu.org>
+ Mikael Morin <mikael.morin@gcc.gnu.org>
+
+ PR fortran/58470
+ * class.c (generate_finalization_wrapper): Assert that proc_tree has
+ been set in gfc_resolve_finalizers.
+ * resolve.c (resolve_fl_derived0): Remove unnecessary call to
+ gfc_is_finalizable.
+
2014-02-07 Benno Schulenberg <bensberg@justemail.net>
PR translation/52289
for (fini = derived->f2k_derived->finalizers; fini; fini = fini->next)
{
- if (!fini->proc_tree)
- fini->proc_tree = gfc_find_sym_in_symtree (fini->proc_sym);
+ gcc_assert (fini->proc_tree); /* Should have been set in gfc_resolve_finalizers. */
if (fini->proc_tree->n.sym->attr.elemental)
{
fini_elem = fini;
/* Add derived type to the derived type list. */
add_dt_to_dt_list (sym);
- /* Check if the type is finalizable. This is done in order to ensure that the
- finalization wrapper is generated early enough. */
- gfc_is_finalizable (sym, NULL);
-
return true;
}
+2014-02-08 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/58470
+ * gfortran.dg/finalize_22.f90: New.
+
2014-02-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/60066
--- /dev/null
+! { dg-do compile }
+!
+! PR 58470: [4.9 Regression] [OOP] ICE on invalid with FINAL procedure and type extension
+!
+! Contributed by Andrew Benson <abensonca@gmail.com>
+
+module cf
+ type :: cfml
+ contains
+ final :: mld
+ end type cfml
+ type, extends(cfml) :: cfmde
+ end type cfmde
+contains
+ subroutine mld(s) ! { dg-error "must be of type" }
+ class(cfml), intent(inout) :: s
+ end subroutine mld
+end module cf
+
+! { dg-final { cleanup-modules "cf" } }