Lines Matching refs:lvalue
224 /* Assign the initial value RVALUE to LVALUE's symbol->value. If the
225 LVALUE already has an initialization, we extend this, otherwise we
227 consecutive values in LVALUE the same value in RVALUE. In that case,
228 LVALUE must refer to a full array, not an array section. */
231 gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index,
246 symbol = lvalue->symtree->n.sym;
250 symbol->name, &lvalue->where);
260 for (ref = lvalue->ref; ref; ref = ref->next)
292 lvalue->symtree->n.sym->name, &lvalue->where,
316 &lvalue->where);
333 &lvalue->where);
422 &lvalue->where);
496 gfc_error (msg, &lvalue->where);
499 constructor has to be of type COMPLEX, whereas the lvalue is
507 if (!gfc_compare_types (&lvalue->ts, &rexpr->ts))
508 gfc_convert_type (rexpr, &lvalue->ts, 0);
511 if (init && ref == lvalue->ref)
516 expr = gfc_get_constant_expr (BT_COMPLEX, lvalue->ts.kind,
517 &lvalue->where);
533 &lvalue->where);
551 if (ref == lvalue->ref)
596 if (lvalue->ts.u.cl->length == NULL && !(ref && ref->u.ss.length != NULL))
598 if (lvalue->ts.u.cl->length
599 && lvalue->ts.u.cl->length->expr_type != EXPR_CONSTANT)
607 if (lvalue->ts.type == BT_DERIVED
608 && gfc_has_default_initializer (lvalue->ts.u.derived))
612 symbol->name, &lvalue->where);
617 if (!gfc_compare_types (&lvalue->ts, &expr->ts))
618 gfc_convert_type (expr, &lvalue->ts, 0);
622 && !gfc_check_pointer_assign (lvalue, rvalue, false, true))
Indexes created Sat Feb 28 05:31:39 UTC 2026