[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pointer_array_3

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:52953f0c0d4fe97eff22bc23f67368e8aefef0ac

commit 52953f0c0d4fe97eff22bc23f67368e8aefef0ac
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Jun 4 17:40:48 2025 +0200

    Correction régression pointer_array_3

Diff:
---
 gcc/fortran/trans-array.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 43b5ec7339d2..5b18df0e9679 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7875,7 +7875,7 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
            }
          else if (expr->ts.type == BT_CHARACTER)
            {
-             tree slen = ss->info->string_length;
+             tree slen = se->string_length;
              slen = fold_convert_loc (input_location, gfc_array_index_type,
                                       slen);
              tree kind = build_int_cst (gfc_array_index_type,