[Bug fortran/58880] [4.9 Regression] [OOP] ICE on valid with FINAL function and type extension

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58880

--- Comment #11 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Draft patch:

--- a/gcc/fortran/trans.c
+++ b/gcc/fortran/trans.c
@@ -871,2 +871,5 @@ gfc_build_final_call (gfc_typespec ts, gfc_expr
*final_wrapper, gfc_expr *var,

+  if (final_wrapper->symtree->n.sym->module)
+    final_wrapper->symtree->n.sym->attr.use_assoc = 1;
+
   gfc_start_block (&block);