Home
last modified time | relevance | path

Searched refs:logical_type_node (Results 1 – 23 of 23) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dconvert.cc47 if (TREE_TYPE (expr) == logical_type_node) in truthvalue_conversion()
51 TREE_TYPE (expr) = logical_type_node; in truthvalue_conversion()
56 logical_type_node, in truthvalue_conversion()
60 logical_type_node, in truthvalue_conversion()
69 logical_type_node, in truthvalue_conversion()
H A Dtrans-intrinsic.cc370 logical_type_node, tmp, arg); in build_fixbound_expr()
505 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, arg[0], in gfc_conv_intrinsic_aint()
510 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, arg[0], in gfc_conv_intrinsic_aint()
512 cond = fold_build2_loc (input_location, TRUTH_AND_EXPR, logical_type_node, in gfc_conv_intrinsic_aint()
970 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, a, b); in gfc_trans_same_strlen_check()
2138 tmp = fold_build2 (EQ_EXPR, logical_type_node, scal_se.expr, in conv_caf_send()
2449 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in trans_this_image()
2453 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in trans_this_image()
2456 logical_type_node, cond, tmp); in trans_this_image()
2547 cond = fold_build2_loc (input_location, GE_EXPR, logical_type_node, loop_var, in trans_this_image()
[all …]
H A Dtrans.cc737 logical_type_node, res, in gfc_call_malloc()
822 logical_type_node, pointer, in gfc_allocate_using_malloc()
924 logical_type_node, mem, in gfc_allocate_allocatable()
1002 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_allocate_allocatable()
1216 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_comp_finalizer_call()
1237 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_comp_finalizer_call()
1242 logical_type_node, cond, tmp); in gfc_add_comp_finalizer_call()
1338 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_finalizer_call()
1356 cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_finalizer_call()
1360 logical_type_node, cond2, cond); in gfc_add_finalizer_call()
[all …]
H A Dtrans-array.cc1196 logical_type_node, packed, in gfc_trans_allocate_array_storage()
1472 logical_type_node, in gfc_trans_create_temp_array()
1646 cond = fold_build2_loc (input_location, LE_EXPR, logical_type_node, in gfc_trans_create_temp_array()
1654 logical_type_node, or_expr, cond); in gfc_trans_create_temp_array()
1914 logical_type_node, first_len_val, in gfc_trans_array_ctor_element()
2256 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in gfc_trans_array_constructor_value()
2259 logical_type_node, tmp, in gfc_trans_array_constructor_value()
2261 logical_type_node, shadow_loopvar, end), in gfc_trans_array_constructor_value()
2263 logical_type_node, shadow_loopvar, end)); in gfc_trans_array_constructor_value()
2790 logical_type_node, ss_info->string_length, in trans_array_constructor()
[all …]
H A Dtrans-stmt.cc153 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, tmp, in gfc_trans_goto()
1270 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_sync()
1278 cond = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in gfc_trans_sync()
1280 cond2 = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in gfc_trans_sync()
1284 logical_type_node, cond, cond2); in gfc_trans_sync()
1576 tmp = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
1579 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
1593 tmp = fold_build2_loc (input_location, LE_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
2406 cond = fold_build2_loc (loc, GT_EXPR, logical_type_node, dovar, in gfc_trans_simple_do()
2409 cond = fold_build2_loc (loc, LT_EXPR, logical_type_node, dovar, in gfc_trans_simple_do()
[all …]
H A Dtrans-expr.cc323 logical_type_node, tmp, in gfc_resize_class_size_with_len()
1394 logical_type_node, tmp, in gfc_get_class_array_ref()
1536 logical_type_node, from_len, orig_nelems); in gfc_copy_class_to_class()
1587 logical_type_node, from_len, in gfc_copy_class_to_class()
1615 logical_type_node, from_len, in gfc_copy_class_to_class()
1629 logical_type_node, in gfc_copy_class_to_class()
1674 tree cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_class_array_init_assign()
1744 logical_type_node, src.expr, in gfc_trans_class_init_assign()
1829 logical_type_node, in trans_scalar_class_assign()
1850 logical_type_node, fcn, zero); in trans_scalar_class_assign()
[all …]
H A Dtrans-types.h47 extern GTY(()) tree logical_type_node;
H A Dtrans-io.cc583 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in set_parameter_value_chk()
592 cond = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in set_parameter_value_chk()
644 cond1 = build2_loc (input_location, LT_EXPR, logical_type_node, in set_parameter_value_inquire()
649 cond2 = build2_loc (input_location, GT_EXPR, logical_type_node, in set_parameter_value_inquire()
653 logical_type_node, cond1, cond2); in set_parameter_value_inquire()
854 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in set_string()
H A Dtrans-types.cc66 tree logical_type_node; variable
1045 logical_type_node = gfc_get_logical_type (gfc_default_logical_kind); in gfc_init_types()
1046 logical_true_node = build_int_cst (logical_type_node, 1); in gfc_init_types()
1047 logical_false_node = build_int_cst (logical_type_node, 0); in gfc_init_types()
3487 info->allocated = build2 (NE_EXPR, logical_type_node, in gfc_get_array_descr_info()
3491 info->associated = build2 (NE_EXPR, logical_type_node, in gfc_get_array_descr_info()
H A Dtrans-openmp.cc639 logical_type_node, tem, in gfc_walk_alloc_comps()
782 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_default_ctor()
973 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_copy_ctor()
1030 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
1070 nonalloc = fold_build2_loc (input_location, EQ_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
1086 tem = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
1090 logical_type_node, cond, tem); in gfc_omp_clause_assign_op()
1166 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
1426 tree cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_dtor()
5167 logical_type_node, dovar, to); in gfc_trans_omp_do()
[all …]
H A DChangeLog-2017438 * convert.c (truthvalue_conversion): Use logical_type_node.
542 * trans-types.c (gfc_init_types): Initialize logical_type_node and
544 (gfc_get_array_descr_info): Use logical_type_node.
545 * trans-types.h (logical_type_node): New tree.
548 * trans.c (gfc_trans_runtime_check): Use logical_type_node.
H A Dtrans-decl.cc4091 void_type_node, 2, logical_type_node, logical_type_node); in gfc_build_builtin_function_decls()
6168 cond = fold_build2_loc (input_location, comparison, logical_type_node, in add_argument_checking()
6177 logical_type_node, in add_argument_checking()
6186 logical_type_node, not_0length, in add_argument_checking()
6190 logical_type_node, cond, absent_failed); in add_argument_checking()
7622 recurcheckvar = gfc_create_var (logical_type_node, "is_recursive"); in gfc_generate_function_code()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dconvert.c47 if (TREE_TYPE (expr) == logical_type_node) in truthvalue_conversion()
51 TREE_TYPE (expr) = logical_type_node; in truthvalue_conversion()
56 logical_type_node, in truthvalue_conversion()
60 logical_type_node, in truthvalue_conversion()
69 logical_type_node, in truthvalue_conversion()
H A Dtrans-intrinsic.c365 logical_type_node, tmp, arg); in build_fixbound_expr()
497 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, arg[0], in gfc_conv_intrinsic_aint()
502 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, arg[0], in gfc_conv_intrinsic_aint()
504 cond = fold_build2_loc (input_location, TRUTH_AND_EXPR, logical_type_node, in gfc_conv_intrinsic_aint()
962 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, a, b); in gfc_trans_same_strlen_check()
2130 tmp = fold_build2 (EQ_EXPR, logical_type_node, scal_se.expr, in conv_caf_send()
2441 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in trans_this_image()
2445 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in trans_this_image()
2448 logical_type_node, cond, tmp); in trans_this_image()
2539 cond = fold_build2_loc (input_location, GE_EXPR, logical_type_node, loop_var, in trans_this_image()
[all …]
H A Dtrans.c570 tmpvar = gfc_create_var (logical_type_node, "print_warning"); in gfc_trans_runtime_check()
664 logical_type_node, res, in gfc_call_malloc()
749 logical_type_node, pointer, in gfc_allocate_using_malloc()
851 logical_type_node, mem, in gfc_allocate_allocatable()
929 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_allocate_allocatable()
1143 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_comp_finalizer_call()
1164 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_comp_finalizer_call()
1169 logical_type_node, cond, tmp); in gfc_add_comp_finalizer_call()
1265 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_finalizer_call()
1283 cond2 = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_add_finalizer_call()
[all …]
H A Dtrans-array.c1128 logical_type_node, packed, in gfc_trans_allocate_array_storage()
1404 logical_type_node, in gfc_trans_create_temp_array()
1550 cond = fold_build2_loc (input_location, LE_EXPR, logical_type_node, in gfc_trans_create_temp_array()
1558 logical_type_node, or_expr, cond); in gfc_trans_create_temp_array()
1818 logical_type_node, first_len_val, in gfc_trans_array_ctor_element()
2160 tmp = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in gfc_trans_array_constructor_value()
2163 logical_type_node, tmp, in gfc_trans_array_constructor_value()
2165 logical_type_node, shadow_loopvar, end), in gfc_trans_array_constructor_value()
2167 logical_type_node, shadow_loopvar, end)); in gfc_trans_array_constructor_value()
2694 logical_type_node, ss_info->string_length, in trans_array_constructor()
[all …]
H A Dtrans-expr.c281 logical_type_node, tmp, in gfc_resize_class_size_with_len()
1300 logical_type_node, tmp, in gfc_get_class_array_ref()
1442 logical_type_node, from_len, orig_nelems); in gfc_copy_class_to_class()
1493 logical_type_node, from_len, in gfc_copy_class_to_class()
1521 logical_type_node, from_len, in gfc_copy_class_to_class()
1535 logical_type_node, in gfc_copy_class_to_class()
1580 tree cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_class_array_init_assign()
1650 logical_type_node, src.expr, in gfc_trans_class_init_assign()
1735 logical_type_node, in trans_scalar_class_assign()
1756 logical_type_node, fcn, zero); in trans_scalar_class_assign()
[all …]
H A Dtrans-stmt.c153 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, tmp, in gfc_trans_goto()
1234 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_sync()
1242 cond = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in gfc_trans_sync()
1244 cond2 = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in gfc_trans_sync()
1248 logical_type_node, cond, cond2); in gfc_trans_sync()
1540 tmp = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
1543 tmp = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
1557 tmp = fold_build2_loc (input_location, LE_EXPR, logical_type_node, in gfc_trans_arithmetic_if()
2368 cond = fold_build2_loc (loc, GT_EXPR, logical_type_node, dovar, in gfc_trans_simple_do()
2371 cond = fold_build2_loc (loc, LT_EXPR, logical_type_node, dovar, in gfc_trans_simple_do()
[all …]
H A Dtrans-types.h47 extern GTY(()) tree logical_type_node;
H A Dtrans-io.c583 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in set_parameter_value_chk()
592 cond = fold_build2_loc (input_location, GT_EXPR, logical_type_node, in set_parameter_value_chk()
644 cond1 = build2_loc (input_location, LT_EXPR, logical_type_node, in set_parameter_value_inquire()
649 cond2 = build2_loc (input_location, GT_EXPR, logical_type_node, in set_parameter_value_inquire()
653 logical_type_node, cond1, cond2); in set_parameter_value_inquire()
828 cond = fold_build2_loc (input_location, LT_EXPR, logical_type_node, in set_string()
H A Dtrans-types.c65 tree logical_type_node; variable
1016 logical_type_node = gfc_get_logical_type (gfc_default_logical_kind); in gfc_init_types()
1017 logical_true_node = build_int_cst (logical_type_node, 1); in gfc_init_types()
1018 logical_false_node = build_int_cst (logical_type_node, 0); in gfc_init_types()
3379 info->allocated = build2 (NE_EXPR, logical_type_node, in gfc_get_array_descr_info()
3383 info->associated = build2 (NE_EXPR, logical_type_node, in gfc_get_array_descr_info()
H A Dtrans-openmp.c550 logical_type_node, tem, in gfc_walk_alloc_comps()
678 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_default_ctor()
788 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_copy_ctor()
845 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
885 nonalloc = fold_build2_loc (input_location, EQ_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
901 tem = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
905 logical_type_node, cond, tem); in gfc_omp_clause_assign_op()
981 cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_assign_op()
1185 tree cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, in gfc_omp_clause_dtor()
4216 logical_type_node, dovar, to); in gfc_trans_omp_do()
[all …]
H A Dtrans-decl.c4457 logical_type_node, dummy_ptr, in convert_CFI_desc()
6235 cond = fold_build2_loc (input_location, comparison, logical_type_node, in add_argument_checking()
6244 logical_type_node, in add_argument_checking()
6253 logical_type_node, not_0length, in add_argument_checking()
6257 logical_type_node, cond, absent_failed); in add_argument_checking()
6823 recurcheckvar = gfc_create_var (logical_type_node, "is_recursive"); in gfc_generate_function_code()