| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | simplify.cc | 83 if (result->expr_type != EXPR_CONSTANT) in range_check() 127 if (k->expr_type != EXPR_CONSTANT) in get_kind() 238 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr() 258 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr() 315 else if (e && e->expr_type == EXPR_CONSTANT) in init_result_expr() 522 && mask->expr_type == EXPR_CONSTANT in simplify_transformation_to_scalar() 578 && mask->expr_type == EXPR_CONSTANT in simplify_transformation_to_array() 717 && mask->expr_type != EXPR_CONSTANT) in simplify_transformation() 740 if (e->expr_type != EXPR_CONSTANT) in gfc_simplify_abs() 774 if (e->expr_type != EXPR_CONSTANT) in simplify_achar_char() [all …]
|
| H A D | dependency.cc | 66 if (expr->expr_type != EXPR_CONSTANT) in gfc_expr_is_one() 250 if (e1->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions() 252 && e2->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions() 332 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 373 if (e2->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 382 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 425 if (e1_left->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 426 && e2_left->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 437 if (e2->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 448 case EXPR_CONSTANT: in gfc_dep_compare_expr() [all …]
|
| H A D | array.cc | 436 if (as->lower[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec() 437 && as->upper[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec() 502 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec() 534 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec() 1727 if (start->expr_type != EXPR_CONSTANT || start->ts.type != BT_INTEGER) in expand_iterator() 1734 if (end->expr_type != EXPR_CONSTANT || end->ts.type != BT_INTEGER) in expand_iterator() 1741 if (step->expr_type != EXPR_CONSTANT || step->ts.type != BT_INTEGER) in expand_iterator() 2179 && ref->u.ss.start->expr_type == EXPR_CONSTANT in gfc_resolve_character_array_constructor() 2181 && ref->u.ss.end->expr_type == EXPR_CONSTANT) in gfc_resolve_character_array_constructor() 2184 if (p->expr->expr_type == EXPR_CONSTANT) in gfc_resolve_character_array_constructor() [all …]
|
| H A D | io.cc | 1328 if (!e || e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in check_format_string() 1525 if ((*result)->expr_type == EXPR_CONSTANT) in match_out_tag() 1665 if (e->expr_type == EXPR_CONSTANT in resolve_tag_format() 2192 if (open->access && open->access->expr_type == EXPR_CONSTANT) in check_open_constraints() 2206 if (open->action && open->action->expr_type == EXPR_CONSTANT) in check_open_constraints() 2240 if (open->asynchronous->expr_type == EXPR_CONSTANT) in check_open_constraints() 2258 if (open->blank->expr_type == EXPR_CONSTANT) in check_open_constraints() 2270 if (open->cc && open->cc->expr_type == EXPR_CONSTANT) in check_open_constraints() 2286 if (open->decimal->expr_type == EXPR_CONSTANT) in check_open_constraints() 2300 if (open->delim->expr_type == EXPR_CONSTANT) in check_open_constraints() [all …]
|
| H A D | expr.cc | 154 e->expr_type = EXPR_CONSTANT; in gfc_get_constant_expr() 252 e->expr_type = EXPR_CONSTANT; in gfc_get_iokind_expr() 286 case EXPR_CONSTANT: in gfc_copy_expr() 449 case EXPR_CONSTANT: in free_expr0() 662 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_int() 715 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_hwi() 852 || dim->expr_type != EXPR_CONSTANT in gfc_copy_shape_excluding() 1083 case EXPR_CONSTANT: in gfc_is_constant_expr() 1383 || ar->as->upper[i]->expr_type != EXPR_CONSTANT in find_array_element() 1384 || ar->as->lower[i]->expr_type != EXPR_CONSTANT) in find_array_element() [all …]
|
| H A D | trans-const.cc | 148 gcc_assert (expr->expr_type == EXPR_CONSTANT); in gfc_conv_string_init() 182 if (cl->length && cl->length->expr_type == EXPR_CONSTANT) in gfc_conv_const_charlen() 302 gcc_assert (expr->expr_type == EXPR_CONSTANT); in gfc_conv_constant_to_tree() 399 if (expr->expr_type != EXPR_CONSTANT) in gfc_conv_constant()
|
| H A D | check.cc | 121 if (a->expr_type != EXPR_CONSTANT) in is_boz_constant() 760 if (expr->expr_type == EXPR_CONSTANT) in nonnegative_check() 781 if (expr->expr_type == EXPR_CONSTANT) in positive_check() 806 if (expr2->expr_type == EXPR_CONSTANT) in less_than_bitsize1() 859 if (expr->expr_type != EXPR_CONSTANT) in less_than_bitsizekind() 885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2() 1082 if (dim->expr_type != EXPR_CONSTANT) in dim_corank_check() 1117 if (dim->expr_type != EXPR_CONSTANT) in dim_rank_check() 1206 if ((!ra->u.ss.start || ra->u.ss.start->expr_type == EXPR_CONSTANT) in gfc_var_strlen() 1207 && ra->u.ss.end->expr_type == EXPR_CONSTANT) in gfc_var_strlen() [all …]
|
| H A D | target-memory.cc | 98 if (e->expr_type == EXPR_CONSTANT) in gfc_element_size() 101 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in gfc_element_size() 302 gcc_assert (source->expr_type == EXPR_CONSTANT in gfc_target_encode_expr() 330 if (source->expr_type == EXPR_CONSTANT || source->ref == NULL) in gfc_target_encode_expr() 353 gcc_assert (c->expr->expr_type == EXPR_CONSTANT in gfc_target_encode_expr() 736 case EXPR_CONSTANT: in gfc_merge_initializers()
|
| H A D | interface.cc | 503 && l1->length->expr_type == EXPR_CONSTANT in compare_components() 504 && l2->length->expr_type == EXPR_CONSTANT in compare_components() 2304 if (e->expr_type == EXPR_CONSTANT) in maybe_dummy_array_arg() 2829 && sym->ts.u.cl->length->expr_type == EXPR_CONSTANT in get_sym_storage_size() 2846 if (sym->as->upper[i]->expr_type != EXPR_CONSTANT in get_sym_storage_size() 2847 || sym->as->lower[i]->expr_type != EXPR_CONSTANT in get_sym_storage_size() 2880 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in get_expr_storage_size() 2883 else if (e->expr_type == EXPR_CONSTANT in get_expr_storage_size() 2908 && ref->u.ss.start->expr_type == EXPR_CONSTANT) in get_expr_storage_size() 2915 || ref->u.ss.length->length->expr_type != EXPR_CONSTANT) in get_expr_storage_size() [all …]
|
| H A D | misc.cc | 229 if (ex->expr_type == EXPR_CONSTANT) in gfc_typename() 246 || ex->ts.u.cl->length->expr_type != EXPR_CONSTANT) in gfc_typename()
|
| H A D | frontend-passes.cc | 547 || (*e)->ts.u.cl->length->expr_type != EXPR_CONSTANT)) in cfe_register_funcs() 639 if (length && length->expr_type == EXPR_CONSTANT) in constant_string_length() 666 && e->symtree->n.sym->ts.u.cl->length->expr_type == EXPR_CONSTANT) in constant_string_length() 769 if (e->expr_type == EXPR_CONSTANT || is_fe_temp (e)) in create_var() 1045 if (co->expr1 == NULL || co->expr1->expr_type == EXPR_CONSTANT) in convert_do_while() 1290 case EXPR_CONSTANT: in traverse_io_block() 1303 || start->value.op.op2->expr_type != EXPR_CONSTANT in traverse_io_block() 1355 case EXPR_CONSTANT: in traverse_io_block() 1817 if (c->expr->expr_type != EXPR_CONSTANT) in combine_array_constructor() 1944 if (e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in is_empty_string() [all …]
|
| H A D | decl.cc | 290 if (new_var->expr->expr_type == EXPR_CONSTANT in var_element() 413 && (*result)->expr_type == EXPR_CONSTANT in match_data_constant() 470 if ((*result)->expr_type == EXPR_CONSTANT) in match_data_constant() 1097 else if ((*expr)->expr_type == EXPR_CONSTANT) in char_len_param_value() 1611 || cl->length->expr_type != EXPR_CONSTANT in gfc_verify_c_interop_param() 1631 else if (cl->length->expr_type != EXPR_CONSTANT in gfc_verify_c_interop_param() 1857 if (expr->expr_type != EXPR_CONSTANT) in gfc_set_constant_character_len() 2033 if (init->expr_type == EXPR_CONSTANT) in add_init_expr_to_sym() 2045 if (length->expr_type != EXPR_CONSTANT) in add_init_expr_to_sym() 2073 else if (sym->ts.u.cl->length->expr_type == EXPR_CONSTANT) in add_init_expr_to_sym() [all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | simplify.c | 83 if (result->expr_type != EXPR_CONSTANT) in range_check() 127 if (k->expr_type != EXPR_CONSTANT) in get_kind() 236 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr() 283 else if (e && e->expr_type == EXPR_CONSTANT) in init_result_expr() 490 && mask->expr_type == EXPR_CONSTANT in simplify_transformation_to_scalar() 546 && mask->expr_type == EXPR_CONSTANT in simplify_transformation_to_array() 685 && mask->expr_type != EXPR_CONSTANT) in simplify_transformation() 708 if (e->expr_type != EXPR_CONSTANT) in gfc_simplify_abs() 742 if (e->expr_type != EXPR_CONSTANT) in simplify_achar_char() 804 if (x->expr_type != EXPR_CONSTANT) in gfc_simplify_acos() [all …]
|
| H A D | dependency.c | 65 if (expr->expr_type != EXPR_CONSTANT) in gfc_expr_is_one() 249 if (e1->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions() 251 && e2->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions() 331 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 372 if (e2->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 381 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 424 if (e1_left->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 425 && e2_left->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 436 if (e2->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr() 447 case EXPR_CONSTANT: in gfc_dep_compare_expr() [all …]
|
| H A D | array.c | 429 if (as->lower[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec() 430 && as->upper[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec() 495 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec() 527 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec() 956 || bound1->expr_type != EXPR_CONSTANT in compare_bounds() 957 || bound2->expr_type != EXPR_CONSTANT in compare_bounds() 1715 if (start->expr_type != EXPR_CONSTANT || start->ts.type != BT_INTEGER) in expand_iterator() 1722 if (end->expr_type != EXPR_CONSTANT || end->ts.type != BT_INTEGER) in expand_iterator() 1729 if (step->expr_type != EXPR_CONSTANT || step->ts.type != BT_INTEGER) in expand_iterator() 2167 && ref->u.ss.start->expr_type == EXPR_CONSTANT in gfc_resolve_character_array_constructor() [all …]
|
| H A D | io.c | 1328 if (!e || e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in check_format_string() 1525 if ((*result)->expr_type == EXPR_CONSTANT) in match_out_tag() 1665 if (e->expr_type == EXPR_CONSTANT in resolve_tag_format() 2192 if (open->access && open->access->expr_type == EXPR_CONSTANT) in check_open_constraints() 2206 if (open->action && open->action->expr_type == EXPR_CONSTANT) in check_open_constraints() 2240 if (open->asynchronous->expr_type == EXPR_CONSTANT) in check_open_constraints() 2258 if (open->blank->expr_type == EXPR_CONSTANT) in check_open_constraints() 2270 if (open->cc && open->cc->expr_type == EXPR_CONSTANT) in check_open_constraints() 2286 if (open->decimal->expr_type == EXPR_CONSTANT) in check_open_constraints() 2300 if (open->delim->expr_type == EXPR_CONSTANT) in check_open_constraints() [all …]
|
| H A D | expr.c | 154 e->expr_type = EXPR_CONSTANT; in gfc_get_constant_expr() 252 e->expr_type = EXPR_CONSTANT; in gfc_get_iokind_expr() 286 case EXPR_CONSTANT: in gfc_copy_expr() 448 case EXPR_CONSTANT: in free_expr0() 654 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_int() 707 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_hwi() 844 || dim->expr_type != EXPR_CONSTANT in gfc_copy_shape_excluding() 1075 case EXPR_CONSTANT: in gfc_is_constant_expr() 1373 || ar->as->upper[i]->expr_type != EXPR_CONSTANT in find_array_element() 1374 || ar->as->lower[i]->expr_type != EXPR_CONSTANT) in find_array_element() [all …]
|
| H A D | trans-const.c | 148 gcc_assert (expr->expr_type == EXPR_CONSTANT); in gfc_conv_string_init() 182 if (cl->length && cl->length->expr_type == EXPR_CONSTANT) in gfc_conv_const_charlen() 302 gcc_assert (expr->expr_type == EXPR_CONSTANT); in gfc_conv_constant_to_tree() 399 if (expr->expr_type != EXPR_CONSTANT) in gfc_conv_constant()
|
| H A D | check.c | 121 if (a->expr_type != EXPR_CONSTANT) in is_boz_constant() 760 if (expr->expr_type == EXPR_CONSTANT) in nonnegative_check() 781 if (expr->expr_type == EXPR_CONSTANT) in positive_check() 806 if (expr2->expr_type == EXPR_CONSTANT) in less_than_bitsize1() 859 if (expr->expr_type != EXPR_CONSTANT) in less_than_bitsizekind() 885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2() 1082 if (dim->expr_type != EXPR_CONSTANT) in dim_corank_check() 1117 if (dim->expr_type != EXPR_CONSTANT) in dim_rank_check() 1204 if ((!ra->u.ss.start || ra->u.ss.start->expr_type == EXPR_CONSTANT) in gfc_var_strlen() 1205 && ra->u.ss.end->expr_type == EXPR_CONSTANT) in gfc_var_strlen() [all …]
|
| H A D | target-memory.c | 98 if (e->expr_type == EXPR_CONSTANT) in gfc_element_size() 101 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in gfc_element_size() 303 gcc_assert (source->expr_type == EXPR_CONSTANT in gfc_target_encode_expr() 331 if (source->expr_type == EXPR_CONSTANT || source->ref == NULL) in gfc_target_encode_expr() 354 gcc_assert (c->expr->expr_type == EXPR_CONSTANT in gfc_target_encode_expr() 736 case EXPR_CONSTANT: in gfc_merge_initializers()
|
| H A D | interface.c | 503 && l1->length->expr_type == EXPR_CONSTANT in compare_components() 504 && l2->length->expr_type == EXPR_CONSTANT in compare_components() 2280 if (e->expr_type == EXPR_CONSTANT) in maybe_dummy_array_arg() 2762 && sym->ts.u.cl->length->expr_type == EXPR_CONSTANT in get_sym_storage_size() 2779 if (sym->as->upper[i]->expr_type != EXPR_CONSTANT in get_sym_storage_size() 2780 || sym->as->lower[i]->expr_type != EXPR_CONSTANT in get_sym_storage_size() 2813 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in get_expr_storage_size() 2816 else if (e->expr_type == EXPR_CONSTANT in get_expr_storage_size() 2841 && ref->u.ss.start->expr_type == EXPR_CONSTANT) in get_expr_storage_size() 2848 || ref->u.ss.length->length->expr_type != EXPR_CONSTANT) in get_expr_storage_size() [all …]
|
| H A D | misc.c | 227 if (ex->expr_type == EXPR_CONSTANT) in gfc_typename() 244 || ex->ts.u.cl->length->expr_type != EXPR_CONSTANT) in gfc_typename()
|
| H A D | frontend-passes.c | 547 || (*e)->ts.u.cl->length->expr_type != EXPR_CONSTANT)) in cfe_register_funcs() 639 if (length && length->expr_type == EXPR_CONSTANT) in constant_string_length() 666 && e->symtree->n.sym->ts.u.cl->length->expr_type == EXPR_CONSTANT) in constant_string_length() 769 if (e->expr_type == EXPR_CONSTANT || is_fe_temp (e)) in create_var() 1045 if (co->expr1 == NULL || co->expr1->expr_type == EXPR_CONSTANT) in convert_do_while() 1290 case EXPR_CONSTANT: in traverse_io_block() 1303 || start->value.op.op2->expr_type != EXPR_CONSTANT in traverse_io_block() 1355 case EXPR_CONSTANT: in traverse_io_block() 1817 if (c->expr->expr_type != EXPR_CONSTANT) in combine_array_constructor() 1944 if (e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in is_empty_string() [all …]
|
| H A D | arith.c | 1265 if (op->expr_type == EXPR_CONSTANT) in reduce_unary() 1309 if (c->expr->expr_type == EXPR_CONSTANT) in reduce_binary_ac() 1349 if (c->expr->expr_type == EXPR_CONSTANT) in reduce_binary_ca() 1431 if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_CONSTANT) in reduce_binary() 1434 if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_ARRAY) in reduce_binary() 1437 if (op1->expr_type == EXPR_ARRAY && op2->expr_type == EXPR_CONSTANT) in reduce_binary() 1599 if (op1->expr_type != EXPR_CONSTANT in eval_intrinsic() 1605 && op2->expr_type != EXPR_CONSTANT in eval_intrinsic()
|
| H A D | decl.c | 290 if (new_var->expr->expr_type == EXPR_CONSTANT in var_element() 413 && (*result)->expr_type == EXPR_CONSTANT in match_data_constant() 470 if ((*result)->expr_type == EXPR_CONSTANT) in match_data_constant() 1097 else if ((*expr)->expr_type == EXPR_CONSTANT) in char_len_param_value() 1562 if (!cl || !cl->length || cl->length->expr_type != EXPR_CONSTANT in gfc_verify_c_interop_param() 1778 if (expr->expr_type != EXPR_CONSTANT) in gfc_set_constant_character_len() 1951 if (init->expr_type == EXPR_CONSTANT) in add_init_expr_to_sym() 1963 if (length->expr_type != EXPR_CONSTANT) in add_init_expr_to_sym() 1991 else if (sym->ts.u.cl->length->expr_type == EXPR_CONSTANT) in add_init_expr_to_sym() 2006 if (init->expr_type == EXPR_CONSTANT) in add_init_expr_to_sym() [all …]
|