Home
last modified time | relevance | path

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

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-types.c84 gfc_integer_info gfc_integer_kinds[MAX_INT_KINDS + 1]; variable
214 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in get_int_kind_from_node()
215 if (gfc_integer_kinds[i].bit_size == TYPE_PRECISION (type)) in get_int_kind_from_node()
216 return gfc_integer_kinds[i].kind; in get_int_kind_from_node()
237 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in gfc_get_int_kind_from_width_isofortranenv()
238 if (gfc_integer_kinds[i].bit_size == size) in gfc_get_int_kind_from_width_isofortranenv()
239 return gfc_integer_kinds[i].kind; in gfc_get_int_kind_from_width_isofortranenv()
242 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in gfc_get_int_kind_from_width_isofortranenv()
243 if (gfc_integer_kinds[i].bit_size > size) in gfc_get_int_kind_from_width_isofortranenv()
294 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in get_int_kind_from_width()
[all …]
H A Dsimplify.c297 mpz_set (e->value.integer, gfc_integer_kinds[i].min_int); in init_result_expr()
299 mpz_set (e->value.integer, gfc_integer_kinds[i].huge); in init_result_expr()
1604 gfc_integer_kinds[i].bit_size); in gfc_simplify_bit_size()
1635 convert_mpz_to_unsigned (x, gfc_integer_kinds[k].bit_size); in compare_bitwise()
1639 convert_mpz_to_unsigned (y, gfc_integer_kinds[k].bit_size); in compare_bitwise()
2292 digits = gfc_integer_kinds[i].digits; in gfc_simplify_digits()
2401 size = gfc_integer_kinds[k].bit_size; in simplify_dshift()
2937 mpz_set (result->value.integer, gfc_integer_kinds[i].huge); in gfc_simplify_exponent()
3201 mpz_set (result->value.integer, gfc_integer_kinds[i].huge); in gfc_simplify_huge()
3335 gfc_integer_kinds[k].bit_size); in gfc_simplify_ibclr()
[all …]
H A Darith.c146 for (int_info = gfc_integer_kinds; int_info->kind != 0; int_info++) in gfc_arith_init_1()
260 for (ip = gfc_integer_kinds; ip->kind; ip++) in gfc_arith_done_1()
306 if (mpz_cmp (p, gfc_integer_kinds[i].pedantic_min_int) < 0) in gfc_check_integer_range()
314 if (mpz_cmp (p, gfc_integer_kinds[i].min_int) < 0 in gfc_check_integer_range()
315 || mpz_cmp (p, gfc_integer_kinds[i].huge) > 0) in gfc_check_integer_range()
895 power = gfc_integer_kinds[k].bit_size; in arith_power()
911 gfc_integer_kinds[k].huge); in arith_power()
2023 gfc_integer_kinds[k].bit_size); in gfc_int2int()
H A Dtarget-memory.c789 for (index = 0; gfc_integer_kinds[index].kind != 0; ++index) in gfc_convert_boz()
790 if ((unsigned) gfc_integer_kinds[index].bit_size >= ts_bit_size) in gfc_convert_boz()
793 expr->ts.kind = gfc_integer_kinds[index].kind; in gfc_convert_boz()
H A Diso-fortran-env.def103 gfc_integer_kinds, GFC_STD_F2008)
H A Dintrinsic.c3983 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
3984 for (j = 0; gfc_integer_kinds[j].kind != 0; j++) in add_conversions()
3989 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
3990 BT_INTEGER, gfc_integer_kinds[j].kind, GFC_STD_F77); in add_conversions()
3994 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
3997 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
4001 BT_INTEGER, gfc_integer_kinds[i].kind, GFC_STD_F77); in add_conversions()
4003 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
4007 BT_INTEGER, gfc_integer_kinds[i].kind, GFC_STD_F77); in add_conversions()
4013 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
[all …]
H A Dcheck.c397 len = gfc_integer_kinds[i].bit_size; in gfc_boz2int()
444 if (mpz_cmp (tmp1, gfc_integer_kinds[i].huge) > 0) in gfc_boz2int()
448 mpz_add_ui (tmp2, gfc_integer_kinds[i].huge, 1); in gfc_boz2int()
817 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
828 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
838 if (i2 >= gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
865 if (val > gfc_integer_kinds[i].bit_size) in less_than_bitsizekind()
891 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize2()
1784 if (gfc_integer_kinds[i].range < gfc_integer_kinds[j].range) in gfc_check_event_query()
H A Dtrans-io.c582 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].pedantic_min_int, 4); in set_parameter_value_chk()
591 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, 4); in set_parameter_value_chk()
643 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].pedantic_min_int, 4); in set_parameter_value_inquire()
648 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, 4); in set_parameter_value_inquire()
H A Dcpp.c613 for (gfc_integer_info *itype = gfc_integer_kinds; itype->kind != 0; itype++) in gfc_cpp_init()
H A Dtrans-intrinsic.c495 mpfr_set_z (huge, gfc_integer_kinds[n].huge, GFC_RND_MODE); in gfc_conv_intrinsic_aint()
993 huge = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, gfc_c_int_kind); in gfc_conv_intrinsic_exponent()
3915 arg1 = gfc_conv_mpz_to_tree (gfc_integer_kinds[0].pedantic_min_int, in conv_intrinsic_system_clock()
3918 arg1 = gfc_conv_mpz_to_tree (gfc_integer_kinds[1].pedantic_min_int, in conv_intrinsic_system_clock()
5270 tmp = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, in gfc_conv_intrinsic_minmaxloc()
6023 tmp = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, expr->ts.kind); in gfc_conv_intrinsic_minmaxval()
7549 bitsize = build_int_cst (TREE_TYPE (arg), gfc_integer_kinds[i].bit_size); in gfc_conv_intrinsic_mask()
9849 huge = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, in conv_intrinsic_ieee_scalb()
H A Dgfortran.h2346 extern gfc_integer_info gfc_integer_kinds[];
H A Dresolve.c5144 gfc_integer_kinds[k].huge) == CMP_GT in gfc_resolve_substring()
7312 && mpz_cmp (iter->end->value.integer, gfc_integer_kinds[k].huge) == 0) in gfc_resolve_iterator()
7318 gfc_integer_kinds[k].min_int) == 0) in gfc_resolve_iterator()
12471 && mpz_cmp (cl->length->value.integer, gfc_integer_kinds[k].huge) > 0) in resolve_charlen()
H A Ddecl.c2001 gfc_integer_kinds[k].huge) <= 0) in add_init_expr_to_sym()
8226 kind = gfc_integer_kinds[i++].kind; in set_enum_kind()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-types.cc86 gfc_integer_info gfc_integer_kinds[MAX_INT_KINDS + 1]; variable
198 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in get_int_kind_from_node()
199 if (gfc_integer_kinds[i].bit_size == TYPE_PRECISION (type)) in get_int_kind_from_node()
200 return gfc_integer_kinds[i].kind; in get_int_kind_from_node()
221 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in gfc_get_int_kind_from_width_isofortranenv()
222 if (gfc_integer_kinds[i].bit_size == size) in gfc_get_int_kind_from_width_isofortranenv()
223 return gfc_integer_kinds[i].kind; in gfc_get_int_kind_from_width_isofortranenv()
226 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in gfc_get_int_kind_from_width_isofortranenv()
227 if (gfc_integer_kinds[i].bit_size > size) in gfc_get_int_kind_from_width_isofortranenv()
278 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in get_int_kind_from_width()
[all …]
H A Dsimplify.cc329 mpz_set (e->value.integer, gfc_integer_kinds[i].min_int); in init_result_expr()
331 mpz_set (e->value.integer, gfc_integer_kinds[i].huge); in init_result_expr()
1636 gfc_integer_kinds[i].bit_size); in gfc_simplify_bit_size()
1667 convert_mpz_to_unsigned (x, gfc_integer_kinds[k].bit_size); in compare_bitwise()
1671 convert_mpz_to_unsigned (y, gfc_integer_kinds[k].bit_size); in compare_bitwise()
2325 digits = gfc_integer_kinds[i].digits; in gfc_simplify_digits()
2434 size = gfc_integer_kinds[k].bit_size; in simplify_dshift()
2970 mpz_set (result->value.integer, gfc_integer_kinds[i].huge); in gfc_simplify_exponent()
3234 mpz_set (result->value.integer, gfc_integer_kinds[i].huge); in gfc_simplify_huge()
3368 gfc_integer_kinds[k].bit_size); in gfc_simplify_ibclr()
[all …]
H A Dtarget-memory.cc789 for (index = 0; gfc_integer_kinds[index].kind != 0; ++index) in gfc_convert_boz()
790 if ((unsigned) gfc_integer_kinds[index].bit_size >= ts_bit_size) in gfc_convert_boz()
793 expr->ts.kind = gfc_integer_kinds[index].kind; in gfc_convert_boz()
H A Darith.cc145 for (int_info = gfc_integer_kinds; int_info->kind != 0; int_info++) in gfc_arith_init_1()
259 for (ip = gfc_integer_kinds; ip->kind; ip++) in gfc_arith_done_1()
305 if (mpz_cmp (p, gfc_integer_kinds[i].pedantic_min_int) < 0) in gfc_check_integer_range()
313 if (mpz_cmp (p, gfc_integer_kinds[i].min_int) < 0 in gfc_check_integer_range()
314 || mpz_cmp (p, gfc_integer_kinds[i].huge) > 0) in gfc_check_integer_range()
894 power = gfc_integer_kinds[k].bit_size; in arith_power()
910 gfc_integer_kinds[k].huge); in arith_power()
2073 gfc_integer_kinds[k].bit_size); in gfc_int2int()
H A Diso-fortran-env.def103 gfc_integer_kinds, GFC_STD_F2008)
H A Dintrinsic.cc4009 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
4010 for (j = 0; gfc_integer_kinds[j].kind != 0; j++) in add_conversions()
4015 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
4016 BT_INTEGER, gfc_integer_kinds[j].kind, GFC_STD_F77); in add_conversions()
4020 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
4023 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
4027 BT_INTEGER, gfc_integer_kinds[i].kind, GFC_STD_F77); in add_conversions()
4029 add_conv (BT_INTEGER, gfc_integer_kinds[i].kind, in add_conversions()
4033 BT_INTEGER, gfc_integer_kinds[i].kind, GFC_STD_F77); in add_conversions()
4039 for (i = 0; gfc_integer_kinds[i].kind != 0; i++) in add_conversions()
[all …]
H A Dcheck.cc397 len = gfc_integer_kinds[i].bit_size; in gfc_boz2int()
444 if (mpz_cmp (tmp1, gfc_integer_kinds[i].huge) > 0) in gfc_boz2int()
448 mpz_add_ui (tmp2, gfc_integer_kinds[i].huge, 1); in gfc_boz2int()
817 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
828 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
838 if (i2 >= gfc_integer_kinds[i3].bit_size) in less_than_bitsize1()
865 if (val > gfc_integer_kinds[i].bit_size) in less_than_bitsizekind()
891 if (i2 > gfc_integer_kinds[i3].bit_size) in less_than_bitsize2()
1788 if (gfc_integer_kinds[i].range < gfc_integer_kinds[j].range) in gfc_check_event_query()
H A Dtrans-io.cc582 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].pedantic_min_int, 4); in set_parameter_value_chk()
591 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, 4); in set_parameter_value_chk()
643 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].pedantic_min_int, 4); in set_parameter_value_inquire()
648 val = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, 4); in set_parameter_value_inquire()
H A Dcpp.cc644 for (gfc_integer_info *itype = gfc_integer_kinds; itype->kind != 0; itype++) in gfc_cpp_init()
H A Dtrans-intrinsic.cc503 mpfr_set_z (huge, gfc_integer_kinds[n].huge, GFC_RND_MODE); in gfc_conv_intrinsic_aint()
1001 huge = gfc_conv_mpz_to_tree (gfc_integer_kinds[i].huge, gfc_c_int_kind); in gfc_conv_intrinsic_exponent()
3913 arg1 = gfc_conv_mpz_to_tree (gfc_integer_kinds[0].pedantic_min_int, in conv_intrinsic_system_clock()
3916 arg1 = gfc_conv_mpz_to_tree (gfc_integer_kinds[1].pedantic_min_int, in conv_intrinsic_system_clock()
5414 tmp = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, in gfc_conv_intrinsic_minmaxloc()
6154 tmp = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, expr->ts.kind); in gfc_conv_intrinsic_minmaxval()
7610 bitsize = build_int_cst (TREE_TYPE (arg), gfc_integer_kinds[i].bit_size); in gfc_conv_intrinsic_mask()
9973 huge = gfc_conv_mpz_to_tree (gfc_integer_kinds[n].huge, in conv_intrinsic_ieee_scalb()
H A Dgfortran.h2635 extern gfc_integer_info gfc_integer_kinds[];
H A Dresolve.cc5230 gfc_integer_kinds[k].huge) == CMP_GT in gfc_resolve_substring()
7434 && mpz_cmp (iter->end->value.integer, gfc_integer_kinds[k].huge) == 0) in gfc_resolve_iterator()
7440 gfc_integer_kinds[k].min_int) == 0) in gfc_resolve_iterator()
12678 && mpz_cmp (cl->length->value.integer, gfc_integer_kinds[k].huge) > 0) in resolve_charlen()

12