Home
last modified time | relevance | path

Searched refs:gfc_get_int_expr (Results 1 – 25 of 42) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dclass.c1128 block->ext.actual->next->expr = gfc_get_int_expr (gfc_index_integer_kind, in finalization_scalarizer()
1155 gfc_get_int_expr (gfc_index_integer_kind, in finalization_scalarizer()
1199 block->expr2 = gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in finalization_get_offset()
1204 iter->start = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1206 iter->step = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1250 = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1362 gfc_get_int_expr (gfc_index_integer_kind, in finalizer_insert_packed_call()
1366 size_expr->value.op.op2 = gfc_get_int_expr (gfc_index_integer_kind, NULL, in finalizer_insert_packed_call()
1422 gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in finalizer_insert_packed_call()
1470 tmp_array->as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, in finalizer_insert_packed_call()
[all …]
H A Dtrans-const.c395 expr = gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_conv_constant()
401 gfc_expr *e = gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_conv_constant()
H A Dsimplify.c371 result = gfc_get_int_expr (1, NULL, 0); in compute_dot_product()
1603 return gfc_get_int_expr (e->ts.kind, &e->where, in gfc_simplify_bit_size()
2304 return gfc_get_int_expr (gfc_default_integer_kind, NULL, digits); in gfc_simplify_digits()
2357 return gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_simplify_dot_product()
2499 bnd = gfc_get_int_expr (array->ts.kind, NULL, 0); in gfc_simplify_eoshift()
3260 result = gfc_get_int_expr (k, &e->where, index); in gfc_simplify_iachar()
3453 result = gfc_get_int_expr (k, &e->where, index); in gfc_simplify_ichar()
3971 return gfc_get_int_expr (gfc_default_integer_kind, NULL, e->ts.kind); in gfc_simplify_kind()
4423 return gfc_get_int_expr (gfc_default_integer_kind, &e->where, lz); in gfc_simplify_leadz()
4487 result = gfc_get_int_expr (k, &e->where, len - count); in gfc_simplify_len_trim()
[all …]
H A Darray.c480 *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_array_element_spec()
509 *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_array_element_spec()
812 as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_match_array_spec()
1666 gfc_replace_expr (e, gfc_get_int_expr (gfc_default_integer_kind, NULL, 0)); in gfc_simplify_iterator_var()
2202 expr->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_character_array_constructor()
H A Dfrontend-passes.c1973 next->expr = gfc_get_int_expr (gfc_default_integer_kind, NULL, kind); in get_len_trim_call()
2057 zero = gfc_get_int_expr (gfc_charlen_int_kind, &e->where, 0); in optimize_comparison()
2251 ref->u.ss.start = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in optimize_trim()
2985 dim_arg = gfc_get_int_expr (gfc_default_integer_kind, &e->where, dim);
2987 kind = gfc_get_int_expr (gfc_default_integer_kind, &e->where,
2990 kind = gfc_get_int_expr (gfc_default_integer_kind, &e->where,
3511 n->ext.iterator->step = gfc_get_int_expr (gfc_index_integer_kind, in create_do_loop()
3542 gfc_get_int_expr (gfc_index_integer_kind, in get_size_m1()
3948 zero_e = gfc_get_int_expr (expr1->ts.kind, &expr1->where, 0); in inline_matmul_assign()
4163 zero = gfc_get_int_expr (gfc_index_integer_kind, &co->loc, 0); in inline_matmul_assign()
H A Diresolve.c90 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in check_charlen_present()
99 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in check_charlen_present()
258 f->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_resolve_char_achar()
636 gfc_resolve_cmplx (f, x, y, gfc_get_int_expr (gfc_default_integer_kind, NULL, in gfc_resolve_dcmplx()
2325 tmp = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_repeat()
2970 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
2977 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
H A Dmatch.c1049 e3 = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_match_iterator()
2382 iter->stride = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_forall_iterator()
4122 cp->low = cp->high = gfc_get_int_expr (gfc_default_integer_kind, in gfc_match_goto()
5107 new_case->high = gfc_get_int_expr (gfc_default_integer_kind, NULL, i); in gfc_match_call()
7023 c->low = gfc_get_int_expr (gfc_default_integer_kind, in gfc_match_rank_is()
H A Dmodule.c6720 sym->value = gfc_get_int_expr (gfc_default_integer_kind, NULL, value); in create_int_parameter()
6760 sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in create_int_parameter_array()
6761 sym->as->upper[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, size); in create_int_parameter_array()
6937 gfc_get_int_expr (gfc_default_integer_kind, NULL, \ in use_iso_fortran_env_module()
7001 gfc_get_int_expr (gfc_default_integer_kind, NULL, \ in use_iso_fortran_env_module()
H A Dresolve.c357 as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_resolve_formal_arglist()
5205 start = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_resolve_substring_charlen()
5241 gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_substring_charlen()
5396 = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_resolve_ref()
6083 e1 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_character_operator()
6089 e2 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_character_operator()
7940 code->expr3 = gfc_get_int_expr (gfc_default_integer_kind, &e->where, 0); in resolve_allocate_expr()
9156 gfc_get_int_expr (gfc_charlen_int_kind, NULL, in resolve_assoc_var()
9498 c->high = gfc_get_int_expr (gfc_integer_4_kind, NULL, in resolve_select_type()
10185 symtree->n.sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind, in resolve_critical()
[all …]
H A Dexpr.c214 gfc_get_int_expr (int kind, locus *where, HOST_WIDE_INT value) in gfc_get_int_expr() function
1835 *newp = gfc_get_int_expr (gfc_default_integer_kind, in find_inquiry_ref()
1849 *newp = gfc_get_int_expr (gfc_default_integer_kind, in find_inquiry_ref()
1993 = gfc_get_int_expr (gfc_charlen_int_kind, in simplify_const_ref()
2269 p->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_simplify_expr()
H A Dsymbol.c4590 c->expr = gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in gen_special_c_interop_ptr()
4843 tmp_sym->value = gfc_get_int_expr (gfc_default_integer_kind, NULL, in generate_isocbinding_symbol()
4877 tmp_sym->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in generate_isocbinding_symbol()
H A Ddecl.c1186 *expr = gfc_get_int_expr (gfc_charlen_int_kind, NULL, length); in match_char_length()
1955 = gfc_get_int_expr (gfc_charlen_int_kind, in add_init_expr_to_sym()
1982 = gfc_get_int_expr (gfc_charlen_int_kind, in add_init_expr_to_sym()
3529 cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_match_char_spec()
4853 ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_match_implicit()
H A Ddependency.c1494 one_expr = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in check_section_vs_section()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dclass.cc1143 block->ext.actual->next->expr = gfc_get_int_expr (gfc_index_integer_kind, in finalization_scalarizer()
1170 gfc_get_int_expr (gfc_index_integer_kind, in finalization_scalarizer()
1214 block->expr2 = gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in finalization_get_offset()
1219 iter->start = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1221 iter->step = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1265 = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1); in finalization_get_offset()
1377 gfc_get_int_expr (gfc_index_integer_kind, in finalizer_insert_packed_call()
1381 size_expr->value.op.op2 = gfc_get_int_expr (gfc_index_integer_kind, NULL, in finalizer_insert_packed_call()
1437 gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in finalizer_insert_packed_call()
1485 tmp_array->as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, in finalizer_insert_packed_call()
[all …]
H A Dtrans-const.cc395 expr = gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_conv_constant()
401 gfc_expr *e = gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_conv_constant()
H A Dsimplify.cc403 result = gfc_get_int_expr (1, NULL, 0); in compute_dot_product()
1635 return gfc_get_int_expr (e->ts.kind, &e->where, in gfc_simplify_bit_size()
2337 return gfc_get_int_expr (gfc_default_integer_kind, NULL, digits); in gfc_simplify_digits()
2390 return gfc_get_int_expr (gfc_default_integer_kind, NULL, 0); in gfc_simplify_dot_product()
2532 bnd = gfc_get_int_expr (array->ts.kind, NULL, 0); in gfc_simplify_eoshift()
3293 result = gfc_get_int_expr (k, &e->where, index); in gfc_simplify_iachar()
3486 result = gfc_get_int_expr (k, &e->where, index); in gfc_simplify_ichar()
4004 return gfc_get_int_expr (gfc_default_integer_kind, NULL, e->ts.kind); in gfc_simplify_kind()
4456 return gfc_get_int_expr (gfc_default_integer_kind, &e->where, lz); in gfc_simplify_leadz()
4595 result = gfc_get_int_expr (k, &e->where, len - count); in gfc_simplify_len_trim()
[all …]
H A Darray.cc487 *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_array_element_spec()
516 *lower = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_array_element_spec()
819 as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_match_array_spec()
1678 gfc_replace_expr (e, gfc_get_int_expr (gfc_default_integer_kind, NULL, 0)); in gfc_simplify_iterator_var()
2214 expr->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_character_array_constructor()
H A Dfrontend-passes.cc1973 next->expr = gfc_get_int_expr (gfc_default_integer_kind, NULL, kind); in get_len_trim_call()
2057 zero = gfc_get_int_expr (gfc_charlen_int_kind, &e->where, 0); in optimize_comparison()
2251 ref->u.ss.start = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in optimize_trim()
3251 dim_arg = gfc_get_int_expr (gfc_default_integer_kind, &e->where, dim); in get_array_inq_function()
3253 kind = gfc_get_int_expr (gfc_default_integer_kind, &e->where, in get_array_inq_function()
3256 kind = gfc_get_int_expr (gfc_default_integer_kind, &e->where, in get_array_inq_function()
3346 a2 = gfc_get_int_expr (gfc_index_integer_kind, &a->where, 1); in inline_limit_check()
3789 n->ext.iterator->step = gfc_get_int_expr (gfc_index_integer_kind, in create_do_loop()
3820 gfc_get_int_expr (gfc_index_integer_kind, in get_size_m1()
4226 zero_e = gfc_get_int_expr (expr1->ts.kind, &expr1->where, 0); in inline_matmul_assign()
[all …]
H A Diresolve.cc90 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in check_charlen_present()
99 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in check_charlen_present()
260 f->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_resolve_char_achar()
648 gfc_resolve_cmplx (f, x, y, gfc_get_int_expr (gfc_default_integer_kind, NULL, in gfc_resolve_dcmplx()
2353 tmp = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_repeat()
3004 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
3011 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
H A Dmatch.cc1023 e3 = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_match_iterator()
2357 iter->stride = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in match_forall_iterator()
4163 cp->low = cp->high = gfc_get_int_expr (gfc_default_integer_kind, in gfc_match_goto()
5148 new_case->high = gfc_get_int_expr (gfc_default_integer_kind, NULL, i); in gfc_match_call()
7114 c->low = gfc_get_int_expr (gfc_default_integer_kind, in gfc_match_rank_is()
H A Dmodule.cc6931 sym->value = gfc_get_int_expr (gfc_default_integer_kind, NULL, value); in create_int_parameter()
6971 sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in create_int_parameter_array()
6972 sym->as->upper[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, size); in create_int_parameter_array()
7148 gfc_get_int_expr (gfc_default_integer_kind, NULL, \ in use_iso_fortran_env_module()
7212 gfc_get_int_expr (gfc_default_integer_kind, NULL, \ in use_iso_fortran_env_module()
H A Dresolve.cc357 as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_resolve_formal_arglist()
5288 start = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_resolve_substring_charlen()
5324 gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_substring_charlen()
5481 = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1); in gfc_resolve_ref()
6205 e1 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_character_operator()
6211 e2 = gfc_get_int_expr (gfc_charlen_int_kind, NULL, in gfc_resolve_character_operator()
8063 code->expr3 = gfc_get_int_expr (gfc_default_integer_kind, &e->where, 0); in resolve_allocate_expr()
9294 gfc_get_int_expr (gfc_charlen_int_kind, NULL, in resolve_assoc_var()
9636 c->high = gfc_get_int_expr (gfc_integer_4_kind, NULL, in resolve_select_type()
10324 symtree->n.sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind, in resolve_critical()
[all …]
H A Dexpr.cc214 gfc_get_int_expr (int kind, locus *where, HOST_WIDE_INT value) in gfc_get_int_expr() function
1851 *newp = gfc_get_int_expr (gfc_default_integer_kind, in find_inquiry_ref()
1872 *newp = gfc_get_int_expr (gfc_default_integer_kind, in find_inquiry_ref()
2018 = gfc_get_int_expr (gfc_charlen_int_kind, in simplify_const_ref()
2295 p->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_simplify_expr()
H A Dsymbol.cc4610 c->expr = gfc_get_int_expr (gfc_index_integer_kind, NULL, 0); in gen_special_c_interop_ptr()
4887 tmp_sym->value = gfc_get_int_expr (gfc_default_integer_kind, NULL, in generate_isocbinding_symbol()
4921 tmp_sym->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in generate_isocbinding_symbol()
H A Ddecl.cc1186 *expr = gfc_get_int_expr (gfc_charlen_int_kind, NULL, length); in match_char_length()
2037 = gfc_get_int_expr (gfc_charlen_int_kind, in add_init_expr_to_sym()
2064 = gfc_get_int_expr (gfc_charlen_int_kind, in add_init_expr_to_sym()
3625 cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_match_char_spec()
4958 ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_match_implicit()

12