https://gcc.gnu.org/g:385f658a25428bc6e2eefc82283fb74634afa549

commit 385f658a25428bc6e2eefc82283fb74634afa549
Author: Mikael Morin <[email protected]>
Date:   Wed Oct 14 14:32:25 2026 +0200

    Correction erreur compil'

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 9f2e4e551418..4871f5c69118 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -701,10 +701,9 @@ gfc_get_array_span (tree desc, gfc_expr *expr)
        decl = NULL_TREE;
     }
 
-  tree span;
-  if (decl && span = GFC_DECL_GET_SPAN (decl))
+  if (decl && GFC_DECL_GET_SPAN (decl))
     /* A span addressed dummy loaded its span on entry.  */
-    tmp = span;
+    tmp = GFC_DECL_GET_SPAN (span);
   else if (is_span_addressed_array (desc)
           || (get_CFI_desc (NULL, expr, &desc, NULL)
               && (POINTER_TYPE_P (TREE_TYPE (desc))

Reply via email to