[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Modif span/elem_len descripteurs de sous-références.

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:42698d86e08e625ea485c6509b6b11d29e14f6c7

commit 42698d86e08e625ea485c6509b6b11d29e14f6c7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jun 5 10:45:19 2025 +0200

    Modif span/elem_len descripteurs de sous-références.

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index f3b2359159f4..c0b1752dd879 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7938,7 +7938,8 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
       else
        {
          /* Otherwise make a new one.  */
-         if (expr->ts.type == BT_CHARACTER)
+         if (expr->ts.type == BT_CHARACTER
+             || subref_array_target)
            parmtype = gfc_typenode_for_spec (&expr->ts);
          else
            parmtype = gfc_get_element_type (TREE_TYPE (desc));