[gcc(refs/users/mikael/heads/pr127612_v01)] Correction compil'

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:2ee72a11cc71a7ac462c8e8b5d6fc7b4c230b7af

commit 2ee72a11cc71a7ac462c8e8b5d6fc7b4c230b7af
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Oct 9 20:29:13 2026 +0200

    Correction compil'

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index ec5e891e6a8a..b2caa65f8036 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -11626,7 +11626,7 @@ get_array_span (gfc_expr * expr, gfc_se & array)
                  && expr->ts.u.cl->length->expr_type
                     == EXPR_CONSTANT)))
        {
-         tree tmp = TREE_TYPE (rse.expr);
+         tree tmp = TREE_TYPE (array.expr);
          tmp = TYPE_SIZE_UNIT (gfc_get_element_type (tmp));
          tree span = fold_convert (gfc_array_index_type, tmp);
          gcc_checking_assert (CONSTANT_CLASS_P (span));