Home
last modified time | relevance | path

Searched refs:gfc_validate_kind (Results 1 – 25 of 32) sorted by relevance

12

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-const.cc99 i = gfc_validate_kind (BT_CHARACTER, kind, false); in gfc_build_wide_string_const()
238 n = gfc_validate_kind (BT_REAL, kind, false); in gfc_conv_mpfr_to_tree()
265 int k = gfc_validate_kind (BT_REAL, kind, false); in gfc_build_inf_or_huge()
H A Dsimplify.cc135 || gfc_validate_kind (type, kind, true) < 0) in get_kind()
317 int i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in init_result_expr()
1634 int i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_bit_size()
1666 k = gfc_validate_kind (i->ts.type, i->ts.kind, false); in compare_bitwise()
1670 k = gfc_validate_kind (j->ts.type, j->ts.kind, false); in compare_bitwise()
2320 i = gfc_validate_kind (x->ts.type, x->ts.kind, false); in gfc_simplify_digits()
2433 k = gfc_validate_kind (BT_INTEGER, arg1->ts.kind, false); in simplify_dshift()
2916 i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_epsilon()
2969 int i = gfc_validate_kind (BT_INTEGER, gfc_default_integer_kind, false); in gfc_simplify_exponent()
3228 i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_huge()
[all …]
H A Dtrans-types.cc680 = gfc_validate_kind (BT_REAL, gfc_default_real_kind * 2, false); in gfc_init_kinds()
780 gfc_validate_kind (bt type, int kind, bool may_fail) in gfc_validate_kind() function
1063 int index = gfc_validate_kind (BT_INTEGER, kind, true); in gfc_get_int_type()
1070 int index = gfc_validate_kind (BT_REAL, kind, true); in gfc_get_real_type()
1077 int index = gfc_validate_kind (BT_COMPLEX, kind, true); in gfc_get_complex_type()
1084 int index = gfc_validate_kind (BT_LOGICAL, kind, true); in gfc_get_logical_type()
1091 int index = gfc_validate_kind (BT_CHARACTER, kind, true); in gfc_get_char_type()
1098 int index = gfc_validate_kind (BT_CHARACTER, kind, true); in gfc_get_pchar_type()
1120 gfc_validate_kind (BT_CHARACTER, kind, false); in gfc_get_character_type_len()
H A Dcheck.cc216 i = gfc_validate_kind (BT_REAL, kind, false); in bin2real()
396 i = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_boz2int()
658 || gfc_validate_kind (type, kind, true) < 0) in kind_check()
809 i3 = gfc_validate_kind (BT_INTEGER, expr1->ts.kind, false); in less_than_bitsize1()
862 i = gfc_validate_kind (BT_INTEGER, k, false); in less_than_bitsizekind()
890 i3 = gfc_validate_kind (BT_INTEGER, expr1->ts.kind, false); in less_than_bitsize2()
1696 if (gfc_validate_kind (BT_INTEGER, k, true) == -1) in gfc_check_failed_or_stopped_images()
1785 int i = gfc_validate_kind (BT_INTEGER, count->ts.kind, false); in gfc_check_event_query()
1786 int j = gfc_validate_kind (BT_INTEGER, gfc_default_integer_kind, false); in gfc_check_event_query()
H A Darith.cc67 int index = gfc_validate_kind (BT_REAL, kind, false); in gfc_set_model_kind()
300 i = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_check_integer_range()
332 i = gfc_validate_kind (BT_REAL, kind, false); in gfc_check_real_range()
893 k = gfc_validate_kind (BT_INTEGER, op1->ts.kind, false); in arith_power()
2071 k = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_int2int()
H A Dprimary.cc277 if (gfc_validate_kind (BT_INTEGER, kind, true) < 0) in match_integer_constant()
712 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
715 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
728 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
1101 if (gfc_validate_kind (BT_CHARACTER, kind, true) < 0) in match_string_constant()
1290 if (gfc_validate_kind (BT_LOGICAL, kind, true) < 0) in match_logical_constant()
H A Dtarget-memory.cc70 int i = gfc_validate_kind (BT_CHARACTER, kind, false); in size_character()
H A Dtrans-intrinsic.cc177 int i = gfc_validate_kind (BT_REAL, kind, false); in gfc_builtin_decl_for_float_kind()
502 n = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_conv_intrinsic_aint()
867 int n = gfc_validate_kind (BT_REAL, ts->kind, false); in gfc_get_intrinsic_lib_fndecl()
1000 i = gfc_validate_kind (BT_INTEGER, gfc_c_int_kind, false); in gfc_conv_intrinsic_exponent()
5413 n = gfc_validate_kind (arrayexpr->ts.type, arrayexpr->ts.kind, false); in gfc_conv_intrinsic_minmaxloc()
6135 n = gfc_validate_kind (expr->ts.type, expr->ts.kind, false); in gfc_conv_intrinsic_minmaxval()
7609 i = gfc_validate_kind (BT_INTEGER, expr->ts.kind, false); in gfc_conv_intrinsic_mask()
7728 k = gfc_validate_kind (BT_REAL, expr->ts.kind, false); in gfc_conv_intrinsic_spacing()
7802 k = gfc_validate_kind (BT_REAL, expr->ts.kind, false); in gfc_conv_intrinsic_rrspacing()
8056 int i = gfc_validate_kind (BT_CHARACTER, kind, false); in size_of_string_in_bytes()
[all …]
H A Ddecl.cc2078 int k = gfc_validate_kind (BT_INTEGER, gfc_charlen_int_kind, in add_init_expr_to_sym()
3223 if (gfc_validate_kind (ts->type, ts->kind, true) < 0) in gfc_match_old_kind_spec()
3339 if (gfc_validate_kind (ts->type, ts->kind, true) < 0) in gfc_match_kind_spec()
3467 if (gfc_validate_kind (BT_CHARACTER, *kind, true) < 0) in match_char_kind()
4073 if (gfc_validate_kind (c2->ts.type, c2->ts.kind, true) < 0) in gfc_get_pdt_instance()
4220 if (gfc_validate_kind (BT_INTEGER, 1, true) < 0) in match_byte_typespec()
4709 if (gfc_validate_kind (ts->type, ts->kind, true) == -1) in gfc_match_decl_type_spec()
H A DChangeLog-2004684 (gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind.
817 gfc_validate_kind): Move to trans-types.c.
818 (gfc_set_model_kind): Use gfc_validate_kind.
840 * arith.c (gfc_validate_kind): Add may_fail argument; abort if
846 * gfortran.h (gfc_validate_kind): Likewise.
H A Dtrans-io.cc581 i = gfc_validate_kind (BT_INTEGER, 4, false); in set_parameter_value_chk()
642 i = gfc_validate_kind (BT_INTEGER, 4, false); in set_parameter_value_inquire()
H A Dgfortran.h3321 int gfc_validate_kind (bt, int, bool);
H A Dmatch.cc2254 if (gfc_validate_kind (ts->type, ts->kind , true) == -1) in gfc_match_type_spec()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-const.c99 i = gfc_validate_kind (BT_CHARACTER, kind, false); in gfc_build_wide_string_const()
238 n = gfc_validate_kind (BT_REAL, kind, false); in gfc_conv_mpfr_to_tree()
265 int k = gfc_validate_kind (BT_REAL, kind, false); in gfc_build_inf_or_huge()
H A Dsimplify.c135 || gfc_validate_kind (type, kind, true) < 0) in get_kind()
285 int i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in init_result_expr()
1602 int i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_bit_size()
1634 k = gfc_validate_kind (i->ts.type, i->ts.kind, false); in compare_bitwise()
1638 k = gfc_validate_kind (j->ts.type, j->ts.kind, false); in compare_bitwise()
2287 i = gfc_validate_kind (x->ts.type, x->ts.kind, false); in gfc_simplify_digits()
2400 k = gfc_validate_kind (BT_INTEGER, arg1->ts.kind, false); in simplify_dshift()
2883 i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_epsilon()
2936 int i = gfc_validate_kind (BT_INTEGER, gfc_default_integer_kind, false); in gfc_simplify_exponent()
3195 i = gfc_validate_kind (e->ts.type, e->ts.kind, false); in gfc_simplify_huge()
[all …]
H A Dtrans-types.c654 = gfc_validate_kind (BT_REAL, gfc_default_real_kind * 2, false); in gfc_init_kinds()
752 gfc_validate_kind (bt type, int kind, bool may_fail) in gfc_validate_kind() function
1034 int index = gfc_validate_kind (BT_INTEGER, kind, true); in gfc_get_int_type()
1041 int index = gfc_validate_kind (BT_REAL, kind, true); in gfc_get_real_type()
1048 int index = gfc_validate_kind (BT_COMPLEX, kind, true); in gfc_get_complex_type()
1055 int index = gfc_validate_kind (BT_LOGICAL, kind, true); in gfc_get_logical_type()
1062 int index = gfc_validate_kind (BT_CHARACTER, kind, true); in gfc_get_char_type()
1069 int index = gfc_validate_kind (BT_CHARACTER, kind, true); in gfc_get_pchar_type()
1091 gfc_validate_kind (BT_CHARACTER, kind, false); in gfc_get_character_type_len()
H A Darith.c67 int index = gfc_validate_kind (BT_REAL, kind, false); in gfc_set_model_kind()
301 i = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_check_integer_range()
333 i = gfc_validate_kind (BT_REAL, kind, false); in gfc_check_real_range()
894 k = gfc_validate_kind (BT_INTEGER, op1->ts.kind, false); in arith_power()
2021 k = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_int2int()
H A Dcheck.c216 i = gfc_validate_kind (BT_REAL, kind, false); in bin2real()
396 i = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_boz2int()
658 || gfc_validate_kind (type, kind, true) < 0) in kind_check()
809 i3 = gfc_validate_kind (BT_INTEGER, expr1->ts.kind, false); in less_than_bitsize1()
862 i = gfc_validate_kind (BT_INTEGER, k, false); in less_than_bitsizekind()
890 i3 = gfc_validate_kind (BT_INTEGER, expr1->ts.kind, false); in less_than_bitsize2()
1692 if (gfc_validate_kind (BT_INTEGER, k, true) == -1) in gfc_check_failed_or_stopped_images()
1781 int i = gfc_validate_kind (BT_INTEGER, count->ts.kind, false); in gfc_check_event_query()
1782 int j = gfc_validate_kind (BT_INTEGER, gfc_default_integer_kind, false); in gfc_check_event_query()
H A Dprimary.c277 if (gfc_validate_kind (BT_INTEGER, kind, true) < 0) in match_integer_constant()
713 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
716 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
749 if (gfc_validate_kind (BT_REAL, kind, true) < 0) in match_real_constant()
1122 if (gfc_validate_kind (BT_CHARACTER, kind, true) < 0) in match_string_constant()
1311 if (gfc_validate_kind (BT_LOGICAL, kind, true) < 0) in match_logical_constant()
H A Dtarget-memory.c70 int i = gfc_validate_kind (BT_CHARACTER, kind, false); in size_character()
H A Dtrans-intrinsic.c172 int i = gfc_validate_kind (BT_REAL, kind, false); in gfc_builtin_decl_for_float_kind()
494 n = gfc_validate_kind (BT_INTEGER, kind, false); in gfc_conv_intrinsic_aint()
859 int n = gfc_validate_kind (BT_REAL, ts->kind, false); in gfc_get_intrinsic_lib_fndecl()
992 i = gfc_validate_kind (BT_INTEGER, gfc_c_int_kind, false); in gfc_conv_intrinsic_exponent()
5269 n = gfc_validate_kind (arrayexpr->ts.type, arrayexpr->ts.kind, false); in gfc_conv_intrinsic_minmaxloc()
6004 n = gfc_validate_kind (expr->ts.type, expr->ts.kind, false); in gfc_conv_intrinsic_minmaxval()
7548 i = gfc_validate_kind (BT_INTEGER, expr->ts.kind, false); in gfc_conv_intrinsic_mask()
7667 k = gfc_validate_kind (BT_REAL, expr->ts.kind, false); in gfc_conv_intrinsic_spacing()
7741 k = gfc_validate_kind (BT_REAL, expr->ts.kind, false); in gfc_conv_intrinsic_rrspacing()
7974 int i = gfc_validate_kind (BT_CHARACTER, kind, false); in size_of_string_in_bytes()
[all …]
H A Ddecl.c1996 int k = gfc_validate_kind (BT_INTEGER, gfc_charlen_int_kind, in add_init_expr_to_sym()
3126 if (gfc_validate_kind (ts->type, ts->kind, true) < 0) in gfc_match_old_kind_spec()
3242 if (gfc_validate_kind (ts->type, ts->kind, true) < 0) in gfc_match_kind_spec()
3371 if (gfc_validate_kind (BT_CHARACTER, *kind, true) < 0) in match_char_kind()
3968 if (gfc_validate_kind (c2->ts.type, c2->ts.kind, true) < 0) in gfc_get_pdt_instance()
4115 if (gfc_validate_kind (BT_INTEGER, 1, true) < 0) in match_byte_typespec()
4604 if (gfc_validate_kind (ts->type, ts->kind, true) == -1) in gfc_match_decl_type_spec()
H A Dtrans-io.c581 i = gfc_validate_kind (BT_INTEGER, 4, false); in set_parameter_value_chk()
642 i = gfc_validate_kind (BT_INTEGER, 4, false); in set_parameter_value_inquire()
H A Dgfortran.h3037 int gfc_validate_kind (bt, int, bool);
H A Dmatch.c2279 if (gfc_validate_kind (ts->type, ts->kind , true) == -1) in gfc_match_type_spec()

12