Lines Matching defs:po
6272 update_arglist_pass (gfc_actual_arglist* lst, gfc_expr* po, unsigned argpos,
6282 result->expr = po;
6291 lst->next = update_arglist_pass (lst->next, po, argpos - 1, name);
6293 lst = update_arglist_pass (NULL, po, argpos - 1, name);
6303 gfc_expr* po;
6315 po = gfc_copy_expr (e->value.compcall.base_object);
6318 po = gfc_get_expr ();
6319 po->expr_type = EXPR_VARIABLE;
6320 po->symtree = e->symtree;
6321 po->ref = gfc_copy_ref (e->ref);
6322 po->where = e->where;
6325 if (!gfc_resolve_expr (po))
6328 return po;
6338 gfc_expr* po;
6346 po = extract_compcall_passed_object (e);
6347 if (!po)
6352 gfc_free_expr (po);
6359 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po,
6372 gfc_expr *po;
6375 po = gfc_get_expr ();
6376 po->expr_type = EXPR_VARIABLE;
6377 po->symtree = e->symtree;
6378 po->ref = gfc_copy_ref (e->ref);
6379 po->where = e->where;
6382 ref = &po->ref;
6388 if (!gfc_resolve_expr (po))
6391 return po;
6401 gfc_expr* po;
6416 po = extract_ppc_passed_object (e);
6417 if (!po)
6421 if (po->rank != 0)
6428 if (po->ts.type == BT_DERIVED && po->ts.u.derived->attr.abstract)
6431 " ABSTRACT type %qs", &e->where, po->ts.u.derived->name);
6436 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po,
6630 gfc_expr* po;
6631 po = extract_compcall_passed_object (e);
6632 if (!po)
6640 args = update_arglist_pass (args, po, g->specific->pass_arg_num,
Indexes created Mon Oct 05 00:25:34 UTC 2026