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

[Mikael Morin]

https://gcc.gnu.org/g:a87a08ac1b12efd6dc084dc33d7f0b444be80dbe

commit a87a08ac1b12efd6dc084dc33d7f0b444be80dbe
Author: Mikael Morin <mikael@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,