| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | array.c | 1027 if (e->expr_type == EXPR_ARRAY in check_duplicate_iterator() 1192 if (e->expr_type == EXPR_ARRAY && e->ts.type == BT_UNKNOWN in walk_array_constructor() 1424 if (e->expr_type == EXPR_ARRAY) in check_constructor_type() 1519 if (e->expr_type != EXPR_ARRAY) in check_constructor() 1680 if (e->expr_type == EXPR_ARRAY) in expand_expr() 1813 if (e->expr_type == EXPR_ARRAY) in expand_constructor() 1988 if (e->expr_type == EXPR_ARRAY) in gfc_expanded_ac() 2118 gcc_assert (expr->expr_type == EXPR_ARRAY); in gfc_resolve_character_array_constructor() 2611 case EXPR_ARRAY: in gfc_array_dimen_size() 2650 case EXPR_ARRAY: in gfc_array_size()
|
| H A D | target-memory.c | 300 if (source->expr_type == EXPR_ARRAY) in gfc_target_encode_expr() 540 e->expr_type = EXPR_ARRAY; in gfc_interpret_derived() 583 if (result->expr_type == EXPR_ARRAY) in gfc_target_interpret_expr() 741 case EXPR_ARRAY: in gfc_merge_initializers()
|
| H A D | expr.c | 67 e->expr_type = EXPR_ARRAY; in gfc_get_array_expr() 393 case EXPR_ARRAY: in gfc_copy_expr() 496 case EXPR_ARRAY: in free_expr0() 1083 case EXPR_ARRAY: in gfc_is_constant_expr() 1086 if ((e->expr_type == EXPR_ARRAY) && c && c->iterator) in gfc_is_constant_expr() 1567 if (begin->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (begin)) in find_array_section() 1918 if (p->expr_type != EXPR_ARRAY) in simplify_const_ref() 2115 if (p->expr_type == EXPR_ARRAY) in simplify_parameter_variable() 2119 e->expr_type = EXPR_ARRAY; in simplify_parameter_variable() 2289 && p->symtree->n.sym->value->expr_type != EXPR_ARRAY))) in gfc_simplify_expr() [all …]
|
| H A D | data.c | 269 if (init && expr->expr_type != EXPR_ARRAY) in gfc_assign_data_value() 283 expr->expr_type = EXPR_ARRAY; in gfc_assign_data_value() 747 case EXPR_ARRAY: in formalize_init_expr()
|
| H A D | simplify.c | 231 if (e->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (e)) in is_constant_array_expr() 262 if (array->expr_type == EXPR_ARRAY) in gfc_is_size_zero_array() 274 if (e && e->expr_type == EXPR_ARRAY) in init_result_expr() 496 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_transformation_to_scalar() 560 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_transformation_to_array() 4350 e->expr_type = EXPR_ARRAY; in simplify_cobound() 5086 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_minmaxloc_to_scalar() 5264 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_minmaxloc_to_array() 5477 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_findloc_to_scalar() 5638 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_findloc_to_array() [all …]
|
| H A D | arith.c | 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() 1600 && (op1->expr_type != EXPR_ARRAY in eval_intrinsic() 1606 && (op2->expr_type != EXPR_ARRAY in eval_intrinsic() 1686 if (e->expr_type != EXPR_ARRAY) in gfc_zero_size_array()
|
| H A D | check.c | 4411 && (mask->expr_type == EXPR_ARRAY in gfc_check_pack() 4417 if (mask->expr_type == EXPR_ARRAY) in gfc_check_pack() 4709 if (shape->expr_type == EXPR_ARRAY && shape_is_const) in gfc_check_reshape() 4748 if (order->expr_type == EXPR_ARRAY && gfc_is_constant_expr (order)) in gfc_check_reshape() 4802 if (pad == NULL && shape->expr_type == EXPR_ARRAY && shape_is_const in gfc_check_reshape() 5252 if (!c_loc && expr->rank > 0 && expr->expr_type != EXPR_ARRAY) in is_c_interoperable() 6130 && (mold->expr_type == EXPR_ARRAY || mold->rank)) in gfc_calculate_transfer_sizes() 6146 if ((result_elt_size > 0 && (mold->expr_type == EXPR_ARRAY || mold->rank)) in gfc_calculate_transfer_sizes() 6334 if (mask->expr_type == EXPR_ARRAY in gfc_check_unpack()
|
| H A D | frontend-passes.c | 283 else if (expr2->expr_type != EXPR_ARRAY in realloc_string_callback() 394 new_expr->expr_type = EXPR_ARRAY; in copy_walk_reduction_arg() 474 if (arg->expr_type != EXPR_ARRAY) in callback_reduction() 1789 if (op1->expr_type == EXPR_ARRAY && op2->rank == 0) in combine_array_constructor() 1791 else if (op2->expr_type == EXPR_ARRAY && op1->rank == 0) in combine_array_constructor() 1831 e->expr_type = EXPR_ARRAY; in combine_array_constructor() 4973 case EXPR_ARRAY: in gfc_expr_walker() 4991 if ((*e)->expr_type != EXPR_ARRAY) in gfc_expr_walker()
|
| H A D | dependency.c | 1000 case EXPR_ARRAY: in gfc_check_argument_var_dependency() 1390 case EXPR_ARRAY: in gfc_check_dependency() 1820 case EXPR_ARRAY: in contains_forall_index_p()
|
| H A D | trans-array.c | 1678 if (expr->expr_type == EXPR_ARRAY) in gfc_get_array_constructor_element_size() 1995 if (c->expr->expr_type == EXPR_ARRAY) in gfc_trans_array_constructor_value() 2375 case EXPR_ARRAY: in get_array_ctor_strlen() 6216 case EXPR_ARRAY: in gfc_conv_array_initializer() 7177 case EXPR_ARRAY: in get_array_charlen() 7561 case EXPR_ARRAY: in gfc_conv_expr_descriptor() 7610 && (!expr->ts.u.cl->backend_decl || expr->expr_type == EXPR_ARRAY)) in gfc_conv_expr_descriptor() 7668 || expr->expr_type == EXPR_ARRAY); in gfc_conv_expr_descriptor() 7836 || (expr->expr_type == EXPR_ARRAY && se->use_offset))) in gfc_conv_expr_descriptor() 7909 || (expr->expr_type == EXPR_ARRAY && se->use_offset))) in gfc_conv_expr_descriptor() [all …]
|
| H A D | resolve.c | 1371 cons->expr->expr_type = EXPR_ARRAY; in resolve_structure_cons() 1378 if (cons->expr->expr_type == EXPR_ARRAY) in resolve_structure_cons() 1440 if (cons->expr->expr_type == EXPR_ARRAY && rank == cons->expr->rank in resolve_structure_cons() 5473 if (e->expr_type == EXPR_ARRAY) in gfc_expression_rank() 6127 case EXPR_ARRAY: in fixup_charlen() 6128 if (e->expr_type == EXPR_ARRAY) in fixup_charlen() 7008 if (e->expr_type == EXPR_ARRAY) in gfc_is_expandable_expr() 7021 if (con->expr->expr_type == EXPR_ARRAY in gfc_is_expandable_expr() 7125 case EXPR_ARRAY: in gfc_resolve_expr() 10204 else if (code->expr1->expr_type == EXPR_ARRAY in resolve_sync() [all …]
|
| H A D | decl.c | 457 if (sym->value->expr_type == EXPR_ARRAY) in match_data_constant() 1113 else if ((*expr)->expr_type == EXPR_ARRAY) in char_len_param_value() 1143 || (!e->ref && e->expr_type == EXPR_ARRAY)) in char_len_param_value() 1958 else if (init->expr_type == EXPR_ARRAY) in add_init_expr_to_sym() 2008 else if (init->expr_type == EXPR_ARRAY) in add_init_expr_to_sym() 2050 if (init->expr_type != EXPR_ARRAY) in add_init_expr_to_sym()
|
| H A D | io.c | 1677 if ((e->expr_type == EXPR_ARRAY || e->rank > 0) in resolve_tag_format() 1685 if (e->expr_type == EXPR_ARRAY) in resolve_tag_format()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | array.cc | 1039 if (e->expr_type == EXPR_ARRAY in check_duplicate_iterator() 1204 if (e->expr_type == EXPR_ARRAY && e->ts.type == BT_UNKNOWN in walk_array_constructor() 1436 if (e->expr_type == EXPR_ARRAY) in check_constructor_type() 1531 if (e->expr_type != EXPR_ARRAY) in check_constructor() 1692 if (e->expr_type == EXPR_ARRAY) in expand_expr() 1825 if (e->expr_type == EXPR_ARRAY) in expand_constructor() 2000 if (e->expr_type == EXPR_ARRAY) in gfc_expanded_ac() 2130 gcc_assert (expr->expr_type == EXPR_ARRAY); in gfc_resolve_character_array_constructor() 2623 case EXPR_ARRAY: in gfc_array_dimen_size() 2662 case EXPR_ARRAY: in gfc_array_size()
|
| H A D | target-memory.cc | 299 if (source->expr_type == EXPR_ARRAY) in gfc_target_encode_expr() 540 e->expr_type = EXPR_ARRAY; in gfc_interpret_derived() 583 if (result->expr_type == EXPR_ARRAY) in gfc_target_interpret_expr() 741 case EXPR_ARRAY: in gfc_merge_initializers()
|
| H A D | expr.cc | 67 e->expr_type = EXPR_ARRAY; in gfc_get_array_expr() 394 case EXPR_ARRAY: in gfc_copy_expr() 497 case EXPR_ARRAY: in free_expr0() 1091 case EXPR_ARRAY: in gfc_is_constant_expr() 1094 if ((e->expr_type == EXPR_ARRAY) && c && c->iterator) in gfc_is_constant_expr() 1577 if (begin->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (begin)) in find_array_section() 1943 if (p->expr_type != EXPR_ARRAY) in simplify_const_ref() 2140 if (p->expr_type == EXPR_ARRAY) in simplify_parameter_variable() 2144 e->expr_type = EXPR_ARRAY; in simplify_parameter_variable() 2315 && p->symtree->n.sym->value->expr_type != EXPR_ARRAY))) in gfc_simplify_expr() [all …]
|
| H A D | data.cc | 289 if (init && expr->expr_type != EXPR_ARRAY) in gfc_assign_data_value() 303 expr->expr_type = EXPR_ARRAY; in gfc_assign_data_value() 773 case EXPR_ARRAY: in formalize_init_expr()
|
| H A D | simplify.cc | 233 if (e->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (e)) in is_constant_array_expr() 294 if (array->expr_type == EXPR_ARRAY) in gfc_is_size_zero_array() 306 if (e && e->expr_type == EXPR_ARRAY) in init_result_expr() 528 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_transformation_to_scalar() 592 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_transformation_to_array() 4383 e->expr_type = EXPR_ARRAY; in simplify_cobound() 5214 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_minmaxloc_to_scalar() 5395 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_minmaxloc_to_array() 5608 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_findloc_to_scalar() 5769 if (mask && mask->expr_type == EXPR_ARRAY) in simplify_findloc_to_array() [all …]
|
| H A D | check.cc | 4425 && (mask->expr_type == EXPR_ARRAY in gfc_check_pack() 4431 if (mask->expr_type == EXPR_ARRAY) in gfc_check_pack() 4728 if (shape->expr_type == EXPR_ARRAY && shape_is_const) in gfc_check_reshape() 4767 if (order->expr_type == EXPR_ARRAY && gfc_is_constant_expr (order)) in gfc_check_reshape() 4821 if (pad == NULL && shape->expr_type == EXPR_ARRAY && shape_is_const in gfc_check_reshape() 5271 if (!c_loc && expr->rank > 0 && expr->expr_type != EXPR_ARRAY) in is_c_interoperable() 6156 && (mold->expr_type == EXPR_ARRAY || mold->rank)) in gfc_calculate_transfer_sizes() 6172 if ((result_elt_size > 0 && (mold->expr_type == EXPR_ARRAY || mold->rank)) in gfc_calculate_transfer_sizes() 6360 if (mask->expr_type == EXPR_ARRAY in gfc_check_unpack()
|
| H A D | arith.cc | 1478 if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_ARRAY) in reduce_binary() 1481 if (op1->expr_type == EXPR_ARRAY && op2->expr_type == EXPR_CONSTANT) in reduce_binary() 1647 && (op1->expr_type != EXPR_ARRAY in eval_intrinsic() 1653 && (op2->expr_type != EXPR_ARRAY in eval_intrinsic() 1733 if (e == NULL || e->expr_type != EXPR_ARRAY) in gfc_zero_size_array()
|
| H A D | frontend-passes.cc | 283 else if (expr2->expr_type != EXPR_ARRAY in realloc_string_callback() 394 new_expr->expr_type = EXPR_ARRAY; in copy_walk_reduction_arg() 474 if (arg->expr_type != EXPR_ARRAY) in callback_reduction() 1789 if (op1->expr_type == EXPR_ARRAY && op2->rank == 0) in combine_array_constructor() 1791 else if (op2->expr_type == EXPR_ARRAY && op1->rank == 0) in combine_array_constructor() 1831 e->expr_type = EXPR_ARRAY; in combine_array_constructor() 5253 case EXPR_ARRAY: in gfc_expr_walker() 5271 if ((*e)->expr_type != EXPR_ARRAY) in gfc_expr_walker()
|
| H A D | dependency.cc | 1001 case EXPR_ARRAY: in gfc_check_argument_var_dependency() 1391 case EXPR_ARRAY: in gfc_check_dependency() 1821 case EXPR_ARRAY: in contains_forall_index_p()
|
| H A D | trans-array.cc | 1774 if (expr->expr_type == EXPR_ARRAY) in gfc_get_array_constructor_element_size() 2091 if (c->expr->expr_type == EXPR_ARRAY) in gfc_trans_array_constructor_value() 2471 case EXPR_ARRAY: in get_array_ctor_strlen() 6333 case EXPR_ARRAY: in gfc_conv_array_initializer() 7295 case EXPR_ARRAY: in get_array_charlen() 7686 case EXPR_ARRAY: in gfc_conv_expr_descriptor() 7735 && (!expr->ts.u.cl->backend_decl || expr->expr_type == EXPR_ARRAY)) in gfc_conv_expr_descriptor() 7793 || expr->expr_type == EXPR_ARRAY); in gfc_conv_expr_descriptor() 8080 else if (expr->expr_type == EXPR_ARRAY && VAR_P (desc) in gfc_conv_expr_descriptor() 8317 if (expr->expr_type == EXPR_ARRAY && expr->ts.type == BT_CHARACTER) in gfc_conv_array_parameter() [all …]
|
| H A D | resolve.cc | 1410 cons->expr->expr_type = EXPR_ARRAY; in resolve_structure_cons() 1417 if (cons->expr->expr_type == EXPR_ARRAY) in resolve_structure_cons() 1479 if (cons->expr->expr_type == EXPR_ARRAY && rank == cons->expr->rank in resolve_structure_cons() 5558 if (e->expr_type == EXPR_ARRAY) in gfc_expression_rank() 6249 case EXPR_ARRAY: in fixup_charlen() 6250 if (e->expr_type == EXPR_ARRAY) in fixup_charlen() 7130 if (e->expr_type == EXPR_ARRAY) in gfc_is_expandable_expr() 7143 if (con->expr->expr_type == EXPR_ARRAY in gfc_is_expandable_expr() 7247 case EXPR_ARRAY: in gfc_resolve_expr() 10343 else if (code->expr1->expr_type == EXPR_ARRAY in resolve_sync() [all …]
|
| H A D | decl.cc | 457 if (sym->value->expr_type == EXPR_ARRAY) in match_data_constant() 1113 else if ((*expr)->expr_type == EXPR_ARRAY) in char_len_param_value() 1143 || (!e->ref && e->expr_type == EXPR_ARRAY)) in char_len_param_value() 2040 else if (init->expr_type == EXPR_ARRAY) in add_init_expr_to_sym() 2090 else if (init->expr_type == EXPR_ARRAY) in add_init_expr_to_sym() 2132 if (init->expr_type != EXPR_ARRAY) in add_init_expr_to_sym()
|