Lines Matching defs:expr
1171 gfc_conv_array_bound (gfc_expr * expr)
1173 /* If expr is an integer constant, return that. */
1174 if (expr != NULL && expr->expr_type == EXPR_CONSTANT)
1175 return gfc_conv_mpz_to_tree (expr->value.integer, gfc_index_integer_kind);
1543 gfc_expr *expr;
1571 expr = as->lower[n];
1572 if (expr->expr_type == EXPR_CONSTANT)
1574 tmp = gfc_conv_mpz_to_tree (expr->value.integer,
1593 expr = as->upper[n];
1594 if (expr && expr->expr_type == EXPR_CONSTANT)
1596 tmp = gfc_conv_mpz_to_tree (expr->value.integer,
1621 expr = as->lower[n];
1622 if (expr->expr_type == EXPR_CONSTANT)
1623 tmp = gfc_conv_mpz_to_tree (expr->value.integer,
1629 expr = as->upper[n];
1630 if (expr && expr->expr_type == EXPR_CONSTANT)
1631 tmp = gfc_conv_mpz_to_tree (expr->value.integer,