Lines Matching defs:formal
1949 gfc_formal_arglist * formal, locus *where)
1979 sym->formal = formal;
3096 gfc_free_formal_arglist (sym->formal);
3569 if (p->formal != old->formal)
3571 gfc_free_formal_arglist (p->formal);
3572 p->formal = old->formal;
3774 if (sym->old_symbol->formal != sym->formal)
3775 gfc_free_formal_arglist (sym->old_symbol->formal);
4617 /* Add a formal argument, gfc_formal_arglist, to the
4644 reference to the list of formal arguments). */
4647 add_proc_interface (gfc_symbol *sym, ifsrc source, gfc_formal_arglist *formal)
4650 sym->formal = formal;
4655 /* Copy the formal args from an existing symbol, src, into a new
4656 symbol, dest. New formal args are created, and the description of
4659 declaration statement (see match_proc_decl()) to create the formal
4676 /* Save current namespace so we can change it for formal args. */
4679 /* Create a new namespace, which will be the formal ns (namespace
4680 of the formal args). */
4684 for (curr_arg = src->formal; curr_arg; curr_arg = curr_arg->next)
4735 /* Add arg to list of formal args. */
4747 /* Store the formal namespace information. */
4748 if (dest->formal != NULL)
5260 dummies = sym->formal;
5262 dummies = sym->ts.interface->formal;