Index: gcc/fortran/resolve.c
===================================================================
*** gcc/fortran/resolve.c	(revision 255093)
--- gcc/fortran/resolve.c	(working copy)
*************** resolve_component (gfc_component *c, gfc
*** 13502,13508 ****
    if (c->attr.artificial)
      return true;
  
!   if (sym->attr.vtype && sym->attr.use_assoc)
      return true;
  
    /* F2008, C442.  */
--- 13502,13512 ----
    if (c->attr.artificial)
      return true;
  
!   /* Do not allow vtype components to be resolved in nameless namespaces
!      such as block data because the procedure pointers will cause ICEs
!      and vtables are not needed in these contexts.  */
!   if (sym->attr.vtype && sym->attr.use_assoc
!       && sym->ns->proc_name == NULL)
      return true;
  
    /* F2008, C442.  */