Home
last modified time | relevance | path

Searched refs:expr3 (Results 1 – 25 of 29) sorted by relevance

12

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-stmt.cc962 if (code->expr3) in gfc_trans_lock_unlock()
966 gfc_conv_expr (&argse, code->expr3); in gfc_trans_lock_unlock()
1160 if (code->expr3) in gfc_trans_event_post_wait()
1164 gfc_conv_expr (&argse, code->expr3); in gfc_trans_event_post_wait()
1245 if (code->expr3 && flag_coarray == GFC_FCOARRAY_LIB) in gfc_trans_sync()
1247 gcc_assert (code->expr3->expr_type == EXPR_VARIABLE in gfc_trans_sync()
1248 || code->expr3->expr_type == EXPR_FUNCTION); in gfc_trans_sync()
1251 gfc_conv_expr (&argse, code->expr3); in gfc_trans_sync()
6204 tree expr3, expr3_vptr, expr3_len, expr3_esize; in gfc_trans_allocate() local
6222 expr3 = expr3_vptr = expr3_len = expr3_esize = NULL_TREE; in gfc_trans_allocate()
[all …]
H A Ddump-parse-tree.cc2408 if (c->expr3 != NULL) in show_code_node()
2411 show_expr (c->expr3); in show_code_node()
2422 if (c->expr3 != NULL) in show_code_node()
2425 show_expr (c->expr3); in show_code_node()
2440 if (c->expr3 != NULL) in show_code_node()
2443 show_expr (c->expr3); in show_code_node()
2467 if (c->expr3 != NULL) in show_code_node()
2470 show_expr (c->expr3); in show_code_node()
2494 if (c->expr3 != NULL) in show_code_node()
2497 show_expr (c->expr3); in show_code_node()
[all …]
H A Dresolve.cc7950 if (code->expr3) in resolve_allocate_expr()
7953 if (!gfc_type_compatible (&e->ts, &code->expr3->ts)) in resolve_allocate_expr()
7956 "source-expr at %L", &e->where, &code->expr3->where); in resolve_allocate_expr()
7961 if (code->expr3->rank > 0 && !conformable_arrays (code->expr3, e)) in resolve_allocate_expr()
7965 if (code->expr3->ts.kind != e->ts.kind && !unlimited) in resolve_allocate_expr()
7969 &e->where, &code->expr3->where); in resolve_allocate_expr()
7974 if (code->expr3->ts.type == BT_DERIVED in resolve_allocate_expr()
7975 && ((codimension && gfc_expr_attr (code->expr3).lock_comp) in resolve_allocate_expr()
7976 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr()
7978 && code->expr3->ts.u.derived->intmod_sym_id in resolve_allocate_expr()
[all …]
H A Dmatch.cc3432 new_st.expr3 = errmsg; in event_statement()
3774 new_st.expr3 = errmsg; in lock_unlock_statement()
3962 new_st.expr3 = errmsg; in sync_statement()
4613 new_st.expr3 = source; in gfc_match_allocate()
4615 new_st.expr3 = mold; in gfc_match_allocate()
H A Dtrans-array.cc5690 tree expr3_elem_size, tree *nelems, gfc_expr *expr3, in gfc_array_init_size() argument
5926 else if (expr3 != NULL) in gfc_array_init_size()
5928 if (expr3->ts.type == BT_CLASS) in gfc_array_init_size()
5931 gfc_expr *sz = gfc_copy_expr (expr3); in gfc_array_init_size()
5941 tmp = gfc_typenode_for_spec (&expr3->ts); in gfc_array_init_size()
6043 tree *nelems, gfc_expr *expr3, tree e3_arr_desc, in gfc_array_allocate() argument
6107 if (ref->u.ar.type == AR_FULL && expr3 != NULL) in gfc_array_allocate()
6111 ref = expr3->ref; in gfc_array_allocate()
6116 if (expr3->expr_type == EXPR_FUNCTION in gfc_array_allocate()
6117 && gfc_expr_attr (expr3).dimension) in gfc_array_allocate()
[all …]
H A Dcheck.cc881 gfc_expr *expr2, const char *arg3, gfc_expr *expr3) in less_than_bitsize2() argument
885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2()
888 gfc_extract_int (expr3, &i3); in less_than_bitsize2()
H A DChangeLog-2015683 gfc_trans_assignment if expr3 is a variable expression since
1499 taken from expr3.
1519 * trans-stmt.c (gfc_trans_allocate): Get expr3 array
2171 source=expr3 only once before the loop over the objects to
H A Dgfortran.h2943 gfc_expr *expr1, *expr2, *expr3, *expr4; member
H A DChangeLog-2011137 (gfc_array_init_size): Add extra argument, expr3, that represents
139 (gfc_array_allocate): Also add argument expr3 and use it when
165 (gfc_trans_allocate): Add expr3 to gfc_array_allocate arguments.
H A DChangeLog-2018799 components if must_finalize is set for expr3.
993 * trans-stmt.c (gfc_trans_allocate): If the expr3 must be
H A Dfrontend-passes.cc5671 WALK_SUBEXPR (co->expr3); in gfc_code_walker()
H A DChangeLog-20171113 array. Use the expr3 element size if it is available, so that
H A DChangeLog-20122445 if the class element size or expr3 are non-null.
H A DChangeLog-2016502 * trans-stmt.c (gfc_trans_allocate): Move deallocation of expr3
H A DChangeLog-20091238 * fortran/gfortran.h: Add *expr3 entity to gfc_code. Add prototype
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-stmt.c928 if (code->expr3) in gfc_trans_lock_unlock()
932 gfc_conv_expr (&argse, code->expr3); in gfc_trans_lock_unlock()
1126 if (code->expr3) in gfc_trans_event_post_wait()
1130 gfc_conv_expr (&argse, code->expr3); in gfc_trans_event_post_wait()
1210 if (code->expr3 && flag_coarray == GFC_FCOARRAY_LIB) in gfc_trans_sync()
1212 gcc_assert (code->expr3->expr_type == EXPR_VARIABLE); in gfc_trans_sync()
1215 gfc_conv_expr (&argse, code->expr3); in gfc_trans_sync()
6168 tree expr3, expr3_vptr, expr3_len, expr3_esize; in gfc_trans_allocate() local
6186 expr3 = expr3_vptr = expr3_len = expr3_esize = NULL_TREE; in gfc_trans_allocate()
6228 if (code->expr3) in gfc_trans_allocate()
[all …]
H A Ddump-parse-tree.c2094 if (c->expr3 != NULL) in show_code_node()
2097 show_expr (c->expr3); in show_code_node()
2108 if (c->expr3 != NULL) in show_code_node()
2111 show_expr (c->expr3); in show_code_node()
2126 if (c->expr3 != NULL) in show_code_node()
2129 show_expr (c->expr3); in show_code_node()
2153 if (c->expr3 != NULL) in show_code_node()
2156 show_expr (c->expr3); in show_code_node()
2180 if (c->expr3 != NULL) in show_code_node()
2183 show_expr (c->expr3); in show_code_node()
[all …]
H A Dresolve.c7827 if (code->expr3) in resolve_allocate_expr()
7830 if (!gfc_type_compatible (&e->ts, &code->expr3->ts)) in resolve_allocate_expr()
7833 "source-expr at %L", &e->where, &code->expr3->where); in resolve_allocate_expr()
7838 if (code->expr3->rank > 0 && !conformable_arrays (code->expr3, e)) in resolve_allocate_expr()
7842 if (code->expr3->ts.kind != e->ts.kind && !unlimited) in resolve_allocate_expr()
7846 &e->where, &code->expr3->where); in resolve_allocate_expr()
7851 if (code->expr3->ts.type == BT_DERIVED in resolve_allocate_expr()
7852 && ((codimension && gfc_expr_attr (code->expr3).lock_comp) in resolve_allocate_expr()
7853 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr()
7855 && code->expr3->ts.u.derived->intmod_sym_id in resolve_allocate_expr()
[all …]
H A Dmatch.c3391 new_st.expr3 = errmsg; in event_statement()
3733 new_st.expr3 = errmsg; in lock_unlock_statement()
3921 new_st.expr3 = errmsg; in sync_statement()
4572 new_st.expr3 = source; in gfc_match_allocate()
4574 new_st.expr3 = mold; in gfc_match_allocate()
H A Dtrans-array.c5580 tree expr3_elem_size, tree *nelems, gfc_expr *expr3, in gfc_array_init_size() argument
5816 else if (expr3 != NULL) in gfc_array_init_size()
5818 if (expr3->ts.type == BT_CLASS) in gfc_array_init_size()
5821 gfc_expr *sz = gfc_copy_expr (expr3); in gfc_array_init_size()
5831 tmp = gfc_typenode_for_spec (&expr3->ts); in gfc_array_init_size()
5933 tree *nelems, gfc_expr *expr3, tree e3_arr_desc, in gfc_array_allocate() argument
5997 if (ref->u.ar.type == AR_FULL && expr3 != NULL) in gfc_array_allocate()
6001 ref = expr3->ref; in gfc_array_allocate()
6006 if (expr3->expr_type == EXPR_FUNCTION in gfc_array_allocate()
6007 && gfc_expr_attr (expr3).dimension) in gfc_array_allocate()
[all …]
H A Dcheck.c881 gfc_expr *expr2, const char *arg3, gfc_expr *expr3) in less_than_bitsize2() argument
885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2()
888 gfc_extract_int (expr3, &i3); in less_than_bitsize2()
H A Dgfortran.h2657 gfc_expr *expr1, *expr2, *expr3, *expr4; member
H A Dfrontend-passes.c5378 WALK_SUBEXPR (co->expr3); in gfc_code_walker()
/netbsd-src/external/gpl2/groff/dist/src/preproc/refer/
H A Dlabel.y194 expression *expr3; variable
197 : expr1(e1), expr2(e2), expr3(e3) { } in ternary_expr()
198 ~ternary_expr() { delete expr1; delete expr2; delete expr3; } in ~ternary_expr() local
203 | (expr3 ? expr3->analyze() : 0)); in analyze()
832 if (expr3) in evaluate()
833 expr3->evaluate(tentative, ref, result, pos); in evaluate()
/netbsd-src/external/mit/isl/dist/
H A Disl_test.c9468 isl_ast_expr *expr, *expr1, *expr2, *expr3; in test_ast() local
9497 expr3 = isl_ast_expr_from_id(isl_id_alloc(ctx, "C", NULL)); in test_ast()
9498 expr = isl_ast_expr_sub(expr3, expr); in test_ast()

12