Searched refs:expr3 (Results 1 - 8 of 8) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dtrans-stmt.c794 if (code->expr3)
798 gfc_conv_expr (&argse, code->expr3);
992 if (code->expr3)
996 gfc_conv_expr (&argse, code->expr3);
1067 if (code->expr3 && flag_coarray == GFC_FCOARRAY_LIB)
1069 gcc_assert (code->expr3->expr_type == EXPR_VARIABLE);
1072 gfc_conv_expr (&argse, code->expr3);
5297 /* If an expr3 is present, then store the tree for accessing its
5301 available for expr3's type. */
5302 tree expr3, expr3_vpt local
[all...]
H A Dresolve.c6943 if (code->expr3)
6946 if (!gfc_type_compatible (&e->ts, &code->expr3->ts))
6949 "source-expr at %L", &e->where, &code->expr3->where);
6954 if (code->expr3->rank > 0 && !conformable_arrays (code->expr3, e))
6958 if (code->expr3->ts.kind != e->ts.kind && !unlimited)
6962 &e->where, &code->expr3->where);
6967 if (code->expr3->ts.type == BT_DERIVED
6968 && ((codimension && gfc_expr_attr (code->expr3).lock_comp)
6969 || (code->expr3
[all...]
H A Dmatch.c2916 new_st.expr3 = errmsg;
3111 new_st.expr3 = errmsg;
3299 new_st.expr3 = errmsg;
3902 new_st.expr3 = source;
3904 new_st.expr3 = mold;
H A Dcheck.c370 /* If expr2 and expr3 are constants, then check that the value is less than
375 gfc_expr *expr2, const char *arg3, gfc_expr *expr3)
379 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT)
382 gfc_extract_int (expr3, &i3);
374 less_than_bitsize2(const char *arg1, gfc_expr *expr1, const char *arg2, gfc_expr *expr2, const char *arg3, gfc_expr *expr3) argument
H A Dtrans-array.c4962 tree expr3_elem_size, tree *nelems, gfc_expr *expr3,
5134 SOURCE expression (expr3) we must use its element size. */
5137 else if (expr3 != NULL)
5139 if (expr3->ts.type == BT_CLASS)
5142 gfc_expr *sz = gfc_copy_expr (expr3);
5152 tmp = gfc_typenode_for_spec (&expr3->ts);
5227 tree *nelems, gfc_expr *expr3)
5312 expr3_elem_size, nelems, expr3, expr);
4959 gfc_array_init_size(tree descriptor, int rank, int corank, tree * poffset, gfc_expr ** lower, gfc_expr ** upper, stmtblock_t * pblock, stmtblock_t * descriptor_block, tree * overflow, tree expr3_elem_size, tree *nelems, gfc_expr *expr3, gfc_expr *expr) argument
5225 gfc_array_allocate(gfc_se * se, gfc_expr * expr, tree status, tree errmsg, tree errlen, tree label_finish, tree expr3_elem_size, tree *nelems, gfc_expr *expr3) argument
H A Dgfortran.h2383 gfc_expr *expr1, *expr2, *expr3, *expr4; member in struct:gfc_code
H A Dfrontend-passes.c2360 WALK_SUBEXPR (co->expr3);
/haiku-buildtools/isl/
H A Disl_test.c3942 isl_ast_expr *expr, *expr1, *expr2, *expr3; local
3964 expr3 = isl_ast_expr_from_id(isl_id_alloc(ctx, "C", NULL));
3965 expr = isl_ast_expr_sub(expr3, expr);

Completed in 198 milliseconds