Lines Matching defs:sub
2547 resolve_global_procedure (gfc_symbol *sym, locus *where, int sub)
2554 type = sub ? GSYM_SUBROUTINE : GSYM_FUNCTION;
14262 ensure_not_abstract_walker (gfc_symbol* sub, gfc_symtree* st)
14267 if (!ensure_not_abstract_walker (sub, st->left))
14269 if (!ensure_not_abstract_walker (sub, st->right))
14275 overriding = gfc_find_typebound_proc (sub, NULL, st->name, true, NULL);
14283 sub->name, &sub->declared_at, st->name);
14292 ensure_not_abstract (gfc_symbol* sub, gfc_symbol* ancestor)
14294 /* The algorithm used here is to recursively travel up the ancestry of sub
14296 DEFERRED, look it up starting from sub and see if the found (overriding)
14301 gcc_assert (ancestor && !sub->attr.abstract);
14310 t = ensure_not_abstract_walker (sub, ancestor->f2k_derived->tb_sym_root);
14318 return ensure_not_abstract (sub, ancestor);
14770 first non-null sub-expression if we can. */