Lines Matching refs:string_length
987 if (parmse->string_length) in gfc_conv_intrinsic_to_class()
988 tmp = parmse->string_length; in gfc_conv_intrinsic_to_class()
1185 slen = tmpse.string_length; in gfc_conv_class_to_class()
2017 present, se->string_length, tmp); in gfc_conv_missing_dummy()
2019 se->string_length = tmp; in gfc_conv_missing_dummy()
2466 cl->backend_decl = convert (gfc_charlen_type_node, se.string_length); in gfc_conv_string_length()
2536 end.expr = se->string_length; in gfc_conv_substring()
2574 end.expr, se->string_length); in gfc_conv_substring()
2586 se->string_length)); in gfc_conv_substring()
2614 se->string_length = tmp; in gfc_conv_substring()
2688 se->string_length = tmp; in gfc_conv_component_ref()
2696 se->string_length = tmp; in gfc_conv_component_ref()
2767 se->string_length); in conv_inquiry()
2895 se->string_length = ss_info->string_length; in gfc_conv_variable()
2984 se->string_length = sym->ns->proc_name->ts.u.cl->backend_decl; in gfc_conv_variable()
2986 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_variable()
2987 gcc_assert (se->string_length); in gfc_conv_variable()
3621 lse.string_length), in gfc_conv_concat_op()
3623 rse.string_length)); in gfc_conv_concat_op()
3639 fndecl, 6, len, var, lse.string_length, lse.expr, in gfc_conv_concat_op()
3640 rse.string_length, rse.expr); in gfc_conv_concat_op()
3648 se->string_length = len; in gfc_conv_concat_op()
3812 lse.expr = gfc_build_compare_string (lse.string_length, lse.expr, in gfc_conv_expr_op()
3813 rse.string_length, rse.expr, in gfc_conv_expr_op()
4372 se->string_length = gfc_evaluate_now (se->string_length, &se->pre); in gfc_add_interface_mapping()
4373 new_sym->ts.u.cl->backend_decl = se->string_length; in gfc_add_interface_mapping()
4880 parmse->string_length = loop.temp_ss->info->string_length; in gfc_conv_subref_array_arg()
5022 rse.string_length = expr->ts.u.cl->backend_decl; in gfc_conv_subref_array_arg()
5052 parmse->string_length = expr->ts.u.cl->backend_decl; in gfc_conv_subref_array_arg()
5752 parmse.string_length = build_int_cst (gfc_charlen_type_node, in gfc_conv_procedure_call()
5769 parmse.string_length = build_int_cst (gfc_charlen_type_node, 0); in gfc_conv_procedure_call()
6556 && parmse.string_length == NULL_TREE in gfc_conv_procedure_call()
6563 parmse.string_length = e->symtree->n.sym->ts.u.cl->backend_decl; in gfc_conv_procedure_call()
6746 if (parmse.string_length && fsym && fsym->ts.deferred) in gfc_conv_procedure_call()
6748 if (INDIRECT_REF_P (parmse.string_length)) in gfc_conv_procedure_call()
6752 parmse.string_length = TREE_OPERAND (parmse.string_length, 0); in gfc_conv_procedure_call()
6755 tmp = parmse.string_length; in gfc_conv_procedure_call()
6757 tmp = gfc_evaluate_now (parmse.string_length, &se->pre); in gfc_conv_procedure_call()
6758 parmse.string_length = gfc_build_addr_expr (NULL_TREE, tmp); in gfc_conv_procedure_call()
6766 if (parmse.string_length != NULL_TREE in gfc_conv_procedure_call()
6769 vec_safe_push (stringargs, parmse.string_length); in gfc_conv_procedure_call()
6779 vec_safe_push (stringargs, parmse.string_length); in gfc_conv_procedure_call()
6892 se->string_length = build_int_cst (gfc_charlen_type_node, 1); in gfc_conv_procedure_call()
7240 se->string_length = len; in gfc_conv_procedure_call()
7251 se->string_length = len; in gfc_conv_procedure_call()
7692 rse.string_length, rse.expr, fsym->ts.kind); in gfc_conv_statement_function()
7726 if (!INTEGER_CST_P (se->string_length) in gfc_conv_statement_function()
7727 || tree_int_cst_lt (se->string_length, in gfc_conv_statement_function()
7734 sym->ts.kind, se->string_length, se->expr, in gfc_conv_statement_function()
7738 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_statement_function()
8009 lse.string_length = cm->ts.u.cl->backend_decl; in gfc_trans_subarray_assign()
8438 gcc_assert (se.string_length || expr->ts.u.cl->backend_decl); in gfc_trans_subcomponent_assign()
8439 size = size_of_string_in_bytes (cm->ts.kind, se.string_length in gfc_trans_subcomponent_assign()
8440 ? se.string_length in gfc_trans_subcomponent_assign()
8534 size = size_of_string_in_bytes (cm->ts.kind, se.string_length); in gfc_trans_subcomponent_assign()
8541 fold_convert (TREE_TYPE (strlen), se.string_length)); in gfc_trans_subcomponent_assign()
8554 lse.string_length = cm->ts.u.cl->backend_decl; in gfc_trans_subcomponent_assign()
8827 se->string_length = TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (se->expr))); in gfc_conv_substring_expr()
8858 se->string_length = ss_info->string_length; in gfc_conv_expr()
9240 if (rse->string_length != NULL_TREE) in trans_class_vptr_len_assignment()
9241 from_len = rse->string_length; in trans_class_vptr_len_assignment()
9433 gcc_assert (lse.string_length && rse.string_length); in gfc_trans_pointer_assignment()
9435 lse.string_length, rse.string_length, in gfc_trans_pointer_assignment()
9443 if (expr2->expr_type != EXPR_NULL && lse.string_length != NULL) in gfc_trans_pointer_assignment()
9444 gfc_add_modify (&block, lse.string_length, in gfc_trans_pointer_assignment()
9445 fold_convert (TREE_TYPE (lse.string_length), in gfc_trans_pointer_assignment()
9446 rse.string_length)); in gfc_trans_pointer_assignment()
9447 else if (lse.string_length != NULL) in gfc_trans_pointer_assignment()
9448 gfc_add_modify (&block, lse.string_length, in gfc_trans_pointer_assignment()
9449 build_zero_cst (TREE_TYPE (lse.string_length))); in gfc_trans_pointer_assignment()
9491 strlen_lhs = lse.string_length; in gfc_trans_pointer_assignment()
9526 strlen_rhs = rse.string_length; in gfc_trans_pointer_assignment()
9532 strlen_rhs = rse.string_length; in gfc_trans_pointer_assignment()
9545 strlen_rhs = lse.string_length; in gfc_trans_pointer_assignment()
9550 rse.string_length = NULL_TREE; in gfc_trans_pointer_assignment()
9606 strlen_rhs = lse.string_length; in gfc_trans_pointer_assignment()
9831 se->string_length); in gfc_conv_string_parameter()
9883 if (lse->string_length != NULL_TREE) in gfc_trans_scalar_assign()
9887 llen = lse->string_length; in gfc_trans_scalar_assign()
9890 if (rse->string_length != NULL_TREE) in gfc_trans_scalar_assign()
9894 rlen = rse->string_length; in gfc_trans_scalar_assign()
10645 tree string_length, in alloc_scalar_allocatable_for_assignment() argument
10692 size = string_length; in alloc_scalar_allocatable_for_assignment()
10761 lse.string_length, in alloc_scalar_allocatable_for_assignment()
10762 fold_convert (TREE_TYPE (lse.string_length), in alloc_scalar_allocatable_for_assignment()
10779 size = string_length; in alloc_scalar_allocatable_for_assignment()
10780 gfc_add_modify (block, lse.string_length, in alloc_scalar_allocatable_for_assignment()
10781 fold_convert (TREE_TYPE (lse.string_length), size)); in alloc_scalar_allocatable_for_assignment()
11046 tree string_length; in gfc_trans_assignment_1() local
11197 && !(VAR_P (rse.string_length) in gfc_trans_assignment_1()
11198 || TREE_CODE (rse.string_length) == PARM_DECL in gfc_trans_assignment_1()
11199 || TREE_CODE (rse.string_length) == INDIRECT_REF)) in gfc_trans_assignment_1()
11200 string_length = gfc_evaluate_now (rse.string_length, &rse.pre); in gfc_trans_assignment_1()
11206 rse.string_length = in gfc_trans_assignment_1()
11207 gfc_evaluate_now_function_scope (rse.string_length, &rse.pre); in gfc_trans_assignment_1()
11208 string_length = rse.string_length; in gfc_trans_assignment_1()
11211 string_length = NULL_TREE; in gfc_trans_assignment_1()
11217 lse.string_length = string_length; in gfc_trans_assignment_1()
11423 alloc_scalar_allocatable_for_assignment (&block, string_length, in gfc_trans_assignment_1()
11454 rse.string_length = string_length; in gfc_trans_assignment_1()