Lines Matching defs:expr1
104 gfc_conv_label_variable (&se, code->expr1);
151 gfc_conv_label_variable (&se, code->expr1);
371 return gfc_get_intrinsic_for_expr (code->expr1);
424 code->ext.actual, code->expr1, NULL);
437 sym = select_code->expr1->symtree->n.sym;
473 if (code->expr1)
474 gfc_conv_loop_setup (&loop, &code->expr1->where);
520 code->ext.actual, code->expr1,
558 if (code->expr1)
573 &code->expr1->where);
581 gfc_conv_expr (&se, code->expr1);
616 if (code->expr1 == NULL)
623 else if (code->expr1->ts.type == BT_INTEGER)
625 gfc_conv_expr (&se, code->expr1);
632 gfc_conv_expr_reference (&se, code->expr1);
669 if (code->expr1 == NULL)
683 else if (code->expr1->ts.type == BT_INTEGER)
685 gfc_conv_expr (&se, code->expr1);
699 gfc_conv_expr_reference (&se, code->expr1);
753 gfc_conv_expr_val (&argse1, code->expr1);
789 gfc_conv_expr_val (&argse, code->expr1);
839 gfc_conv_expr_val (&argse, code->expr1);
896 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1);
898 if (code->expr1->symtree->n.sym->ts.type != BT_DERIVED
899 || code->expr1->symtree->n.sym->ts.u.derived->from_intmod
901 || code->expr1->symtree->n.sym->ts.u.derived->intmod_sym_id
905 "yet supported", &code->expr1->where);
910 code->expr1);
912 if (gfc_is_coindexed (code->expr1))
913 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl);
918 if (gfc_expr_attr (code->expr1).dimension)
925 ar = &code->expr1->ref->u.ar;
933 gfc_conv_expr_descriptor (&argse, code->expr1);
1070 gfc_conv_expr_val (&argse, code->expr1);
1092 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1);
1094 if (code->expr1->symtree->n.sym->ts.type != BT_DERIVED
1095 || code->expr1->symtree->n.sym->ts.u.derived->from_intmod
1097 || code->expr1->symtree->n.sym->ts.u.derived->intmod_sym_id
1101 "yet supported", &code->expr1->where);
1107 code->expr1);
1110 if (gfc_is_coindexed (code->expr1))
1111 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl);
1116 if (gfc_expr_attr (code->expr1).dimension)
1123 ar = &code->expr1->ref->u.ar;
1131 gfc_conv_expr_descriptor (&argse, code->expr1);
1227 if (code->expr1 && code->expr1->rank == 0)
1230 gfc_conv_expr_val (&argse, code->expr1);
1264 if (code->expr1 && (gfc_option.rtcheck & GFC_RTCHECK_BOUNDS)
1265 && code->expr1->rank == 0)
1287 &code->expr1->where, "Invalid image number "
1349 if (!code->expr1)
1354 else if (code->expr1->rank == 0)
1362 if (code->expr1->ts.kind != gfc_c_int_kind)
1365 gfc_c_int_kind, &code->expr1->where);
1367 gfc_conv_array_parameter (&se, code->expr1, true, NULL, NULL, &len);
1370 tmp = gfc_typenode_for_spec (&code->expr1->ts);
1464 if (!code->expr1)
1472 if (code->expr1->where.lb)
1475 gfc_set_backend_locus (&code->expr1->where);
1478 gfc_conv_expr_val (&if_se, code->expr1);
1480 if (code->expr1->where.lb)
1493 loc = code->expr1->where.lb ? gfc_get_location (&code->expr1->where)
1562 gfc_conv_expr_val (&se, code->expr1);
2841 gfc_conv_expr_val (&cond, code->expr1);
2843 cond.expr = fold_build1_loc (gfc_get_location (&code->expr1->where),
2850 tmp = fold_build3_loc (gfc_get_location (&code->expr1->where), COND_EXPR,
2853 &code->expr1->where)));
2872 tmp = fold_build1_loc (gfc_get_location (&code->expr1->where), LOOP_EXPR,
2907 gfc_conv_expr_val (&se, code->expr1);
2912 e = gfc_copy_expr (code->expr1->value.function.actual->expr);
3063 gfc_conv_expr_val (&se, code->expr1);
3202 gfc_conv_expr_val (&se, code->expr1);
3273 tree pchartype = gfc_get_pchar_type (code->expr1->ts.kind);
3288 gfc_conv_expr_reference (&expr1se, code->expr1);
3346 tree ctype = gfc_get_char_type (code->expr1->ts.kind);
3417 code->expr1->ts.kind);
3435 if (code->expr1->ts.kind == 1)
3437 else if (code->expr1->ts.kind == 4)
3447 if (code->expr1->ts.kind == 1)
3449 else if (code->expr1->ts.kind == 4)
3554 if (code->expr1->ts.kind == 1)
3556 else if (code->expr1->ts.kind == 4)
3603 gcc_assert (code && code->expr1);
3616 switch (code->expr1->ts.type)
3649 gcc_assert (code && code->expr1);
3691 gfc_conv_expr_descriptor (&se, code->expr1);
3694 symbol_attribute attr = gfc_expr_attr (code->expr1);
3783 gcc_assert (code && code->expr1);
3870 old_symtree = c->expr1->symtree;
3881 if (c->expr1->ref->u.ar.type != AR_SECTION)
3934 forall_replace_symtree (c->expr1, old_sym, 2);
3951 lsym = c->expr1->symtree->n.sym;
3952 need_temp = gfc_check_dependency (c->expr1, c->expr2, 0);
3967 if (find_forall_index (c->expr1, lsym, 2))
3975 if (c->expr1->ts.type == BT_CHARACTER
3976 && c->expr1->ref
3980 for (lref = c->expr1->ref; lref; lref = lref->next)
4001 forall_restore_symtree (c->expr1);
4435 compute_inner_temp_size (gfc_expr *expr1, gfc_expr *expr2,
4445 *lss = gfc_walk_expr (expr1);
4637 gfc_trans_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2,
4669 if (expr1->ts.type == BT_CHARACTER)
4672 if (expr1->ref && expr1->ref->type == REF_SUBSTRING)
4676 gfc_conv_expr (&ssse, expr1);
4682 if (!expr1->ts.u.cl->backend_decl)
4685 gcc_assert (expr1->ts.u.cl->length);
4687 gfc_conv_expr (&tse, expr1->ts.u.cl->length);
4688 expr1->ts.u.cl->backend_decl = tse.expr;
4691 expr1->ts.u.cl->backend_decl);
4695 type = gfc_typenode_for_spec (&expr1->ts);
4698 inner_size = compute_inner_temp_size (expr1, expr2, &inner_size_body,
4724 inner_size = compute_inner_temp_size (expr1, expr2, &inner_size_body,
4728 tmp = generate_loop_for_temp_to_lhs (expr1, tmp1, count, count1,
4749 gfc_trans_pointer_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2,
4771 lss = gfc_walk_expr (expr1);
4775 type = gfc_typenode_for_spec (&expr1->ts);
4813 gfc_conv_expr (&lse, expr1);
4878 gfc_conv_expr_descriptor (&lse, expr1);
4972 if (code->expr1
4973 && code->expr1->expr_type == EXPR_CONSTANT
4974 && !code->expr1->value.logical)
5079 if (code->expr1)
5082 if (code->expr1->expr_type == EXPR_CONSTANT
5083 && code->expr1->value.logical)
5129 gfc_conv_expr_val (&se, code->expr1);
5187 gfc_trans_assign_need_temp (c->expr1, c->expr2, NULL, false,
5192 assign = gfc_trans_assignment (c->expr1, c->expr2, false, true);
5214 need_temp = gfc_check_dependency (c->expr1, c->expr2, 0);
5221 gfc_trans_pointer_assign_need_temp (c->expr1, c->expr2,
5226 assign = gfc_trans_pointer_assignment (c->expr1, c->expr2);
5449 of EXPR1 shall be assigned. The sense of MASK is specified by
5453 gfc_trans_where_assign (gfc_expr *expr1, gfc_expr *expr2,
5479 tmp = gfc_trans_arrayfunc_assign (expr1, expr2);
5492 lss = gfc_walk_expr (expr1);
5560 gfc_conv_expr (&lse, expr1);
5570 tmp = gfc_trans_scalar_assign (&lse, &rse, expr1->ts,
5611 gfc_conv_expr (&lse, expr1);
5624 tmp = gfc_trans_scalar_assign (&lse, &rse, expr1->ts, false, true);
5670 gfc_expr *expr1;
5721 need_cmask = (cblock->block->expr1 != 0);
5734 inner_size = compute_inner_temp_size (cblock->expr1, cblock->expr1,
5769 if (cblock->expr1)
5777 gfc_evaluate_where_mask (cblock->expr1, nested_forall_info,
5783 gfc_evaluate_where_mask (cblock->expr1, nested_forall_info,
5809 expr1 = expr2 = NULL;
5814 if (expr1 == NULL)
5815 expr1 = arg->expr;
5822 expr1 = cnext->expr1;
5827 need_temp = gfc_check_dependency (expr1, expr2, 0);
5830 gfc_trans_assign_need_temp (expr1, expr2,
5841 tmp = gfc_trans_where_assign (expr1, expr2,
5859 tmp = gfc_trans_where_assign (expr1, expr2,
5940 cond = cblock->expr1;
5941 tdst = cblock->next->expr1;
5943 edst = eblock ? eblock->next->expr1 : NULL;
6070 if (!gfc_check_dependency (cblock->next->expr1,
6071 cblock->expr1, 0)
6072 && !gfc_check_dependency (cblock->next->expr1,
6076 else if (!eblock->expr1
6092 if (!gfc_check_dependency (cblock->next->expr1,
6093 cblock->expr1, 0)
6094 && !gfc_check_dependency (eblock->next->expr1,
6095 cblock->expr1, 0)
6096 && !gfc_check_dependency (cblock->next->expr1,
6098 && !gfc_check_dependency (eblock->next->expr1,
6100 && !gfc_check_dependency (cblock->next->expr1,
6102 && !gfc_check_dependency (eblock->next->expr1,
6104 && !gfc_check_dependency (cblock->next->expr1,
6105 eblock->next->expr1, 0)
6106 && !gfc_check_dependency (eblock->next->expr1,
6107 cblock->next->expr1, 0))
6232 if (code->expr1)
6902 if (code->expr1)
7053 ini->expr1 = gfc_find_and_cut_at_last_class_ref (expr, true);
7064 ini->expr1 = gfc_expr_to_initialize (expr);
7123 if (code->expr1)
7130 if (code->expr1 && code->expr2)
7164 if (code->expr1)
7173 gfc_conv_expr_lhs (&se, code->expr1);
7216 if (code->expr1)
7230 if (code->expr1 && code->expr2)
7406 if (code->expr1)
7424 if (code->expr1)
7431 if (code->expr1 && code->expr2)
7459 if (code->expr1 && TREE_USED (label_finish))
7466 if (code->expr1)
7469 gfc_conv_expr_lhs (&se, code->expr1);
Indexes created Thu Apr 23 00:23:13 UTC 2026