http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46662
--- Comment #7 from janus at gcc dot gnu.org 2010-11-28 18:37:58 UTC ---
I will commit the following patch as obvious:
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 167218)
+++ gcc/fortran/resolve.c (working copy)
@@ -5389,6 +5389,14 @@ update_ppc_arglist (gfc_expr* e)
return FAILURE;
}
+ /* F08:C611. */
+ if (po->ts.type == BT_DERIVED && po->ts.u.derived->attr.abstract)
+ {
+ gfc_error ("Base object for procedure-pointer component call at %L is
of"
+ " ABSTRACT type '%s'", &e->where, po->ts.u.derived->name);
+ return FAILURE;
+ }
+
gcc_assert (tb->pass_arg_num > 0);
e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual,
po,
tb->pass_arg_num,
