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

[Mikael Morin via Gcc-cvs]

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

commit ead72dda7b4dd40f6fcdb8a2203853c372f0dd88
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Aug 23 15:32:52 2025 +0200

    Correction régression libgomp task2

Diff:
---
 gcc/fortran/trans-array.cc | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 46a1f2c5e519..685c8d9c2a0e 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -6531,20 +6531,18 @@ gfc_trans_array_bounds (tree type, gfc_symbol * sym, 
tree * poffset,
       if (!(array_info && INTEGER_CST_P (array_info)))
        {
          if (dim + 1 < as->rank)
-           {
-             tmp = fold_build2_loc (input_location, MULT_EXPR,
-                                    gfc_array_index_type, spacing, tmp);
-             spacing = array_info;
-           }
+           tmp = fold_build2_loc (input_location, MULT_EXPR,
+                                  gfc_array_index_type, spacing, tmp);
          else
-           {
-             tmp = size;
-             spacing = NULL_TREE;
-           }
+           tmp = size;
 
          gcc_assert (array_info);
          gfc_add_modify (pblock, array_info, tmp);
        }
+      if (dim + 1 < as->rank)
+       spacing = array_info;
+      else
+       spacing = NULL_TREE;
     }
 
   gfc_trans_array_cobounds (type, pblock, sym);