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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:6e47df7f46f3b11da48f281b4e3a020b47f98ded

commit 6e47df7f46f3b11da48f281b4e3a020b47f98ded
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 fa114f32c12c..f3b2359159f4 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7994,7 +7994,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,