Lines Matching refs:string_length
678 gfc_get_temp_ss (tree type, tree string_length, int dimen) in gfc_get_temp_ss() argument
687 ss_info->string_length = string_length; in gfc_get_temp_ss()
1800 se->string_length, se->expr, expr->ts.kind); in gfc_trans_array_ctor_element()
1808 se->string_length)); in gfc_trans_array_ctor_element()
1816 se->string_length); in gfc_trans_array_ctor_element()
1824 fold_convert (long_integer_type_node, se->string_length)); in gfc_trans_array_ctor_element()
2258 *len = gfc_evaluate_now (se.string_length, &se.pre); in get_array_ctor_all_strlen()
2331 gcc_assert (se.string_length != NULL_TREE); in get_array_ctor_var_strlen()
2333 ts->u.cl->backend_decl = se.string_length; in get_array_ctor_var_strlen()
2689 ss_info->string_length = length_se.expr; in trans_array_constructor()
2694 logical_type_node, ss_info->string_length, in trans_array_constructor()
2696 (ss_info->string_length))); in trans_array_constructor()
2706 ss_info->string_length in trans_array_constructor()
2710 (TREE_TYPE (ss_info->string_length)), in trans_array_constructor()
2711 ss_info->string_length); in trans_array_constructor()
2712 ss_info->string_length = gfc_evaluate_now (ss_info->string_length, in trans_array_constructor()
2720 &ss_info->string_length); in trans_array_constructor()
2726 gcc_assert (ss_info->string_length); in trans_array_constructor()
2728 store_backend_decl (&expr->ts.u.cl, ss_info->string_length, force_new_cl); in trans_array_constructor()
2730 type = gfc_get_character_type_len (expr->ts.kind, ss_info->string_length); in trans_array_constructor()
2998 ss_info->string_length = se.string_length; in gfc_add_loop_ss_code()
3031 ss_info->string_length = se.string_length; in gfc_add_loop_ss_code()
3067 ss_info->string_length = se.string_length; in gfc_add_loop_ss_code()
3072 && ss_info->string_length == NULL in gfc_add_loop_ss_code()
3080 ss_info->string_length = se.expr; in gfc_add_loop_ss_code()
3125 ss_info->string_length = se.string_length; in gfc_conv_ss_descriptor()
3693 se->string_length = se->ss->info->string_length; in gfc_conv_tmp_array_ref()
5103 loop->temp_ss = gfc_get_temp_ss (base_type, dest->info->string_length, in gfc_conv_resolve_dependencies()
5384 if (tmp_ss_info->string_length) in gfc_conv_loop_setup()
5388 tmp_ss_info->string_length); in gfc_conv_loop_setup()
6048 && TREE_CODE (se->string_length) == COMPONENT_REF in gfc_array_allocate()
6049 && expr->ts.u.cl->backend_decl != se->string_length in gfc_array_allocate()
6053 se->string_length)); in gfc_array_allocate()
7206 tse.string_length); in get_array_charlen()
7211 && TREE_CODE (tse.string_length) == COMPONENT_REF in get_array_charlen()
7212 && TREE_OPERAND (tse.expr, 0) == TREE_OPERAND (tse.string_length, 0)) in get_array_charlen()
7492 se->string_length = gfc_get_expr_charlen (expr); in gfc_conv_expr_descriptor()
7496 se->string_length = ss_info->string_length; in gfc_conv_expr_descriptor()
7620 se->string_length = loop.temp_ss->info->string_length; in gfc_conv_expr_descriptor()
7664 lse.string_length = rse.string_length; in gfc_conv_expr_descriptor()
7681 se->string_length = ss_info->string_length; in gfc_conv_expr_descriptor()
7734 se->string_length = ss_info->string_length; in gfc_conv_expr_descriptor()
7736 se->string_length = gfc_get_expr_charlen (expr); in gfc_conv_expr_descriptor()
7738 if (VAR_P (se->string_length) in gfc_conv_expr_descriptor()
7739 && expr->ts.u.cl->backend_decl == se->string_length) in gfc_conv_expr_descriptor()
7740 tmp = ss_info->string_length; in gfc_conv_expr_descriptor()
7742 tmp = se->string_length; in gfc_conv_expr_descriptor()
7810 if (expr->ts.type == BT_CHARACTER && ss_info->string_length) in gfc_conv_expr_descriptor()
7811 tmp = ss_info->string_length; in gfc_conv_expr_descriptor()
8153 se->string_length = tmp; in gfc_conv_array_parameter()
8170 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_array_parameter()
8271 se->string_length = expr->ts.u.cl->backend_decl; in gfc_conv_array_parameter()
10259 len1 = se.string_length; in concat_str_length()
10285 len2 = se.string_length; in concat_str_length()
10388 expr2->ts.u.cl->backend_decl = rss->info->string_length; in gfc_alloc_allocatable_for_assignment()
10410 elemsize1 = lss->info->string_length; in gfc_alloc_allocatable_for_assignment()
10446 tmp = rss->info->string_length; in gfc_alloc_allocatable_for_assignment()
10473 gfc_add_modify (&fblock, lss->info->string_length, tmp); in gfc_alloc_allocatable_for_assignment()
10521 lss->info->string_length, in gfc_alloc_allocatable_for_assignment()
10522 rss->info->string_length); in gfc_alloc_allocatable_for_assignment()