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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:14f1d23dab0e7ba239e74b9e5ee5f1792b4f5204

commit 14f1d23dab0e7ba239e74b9e5ee5f1792b4f5204
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Aug 21 23:02:07 2025 +0200

    Correction régression libgomp pr29629
    
    Revert "Revert correction"
    
    This reverts commit 6d46b44c2d3c1dadb3d30034fde222bd5e3f036b.

Diff:
---
 gcc/fortran/trans-decl.cc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc
index 928dc42691b1..9d1ed610e2fb 100644
--- a/gcc/fortran/trans-decl.cc
+++ b/gcc/fortran/trans-decl.cc
@@ -1302,9 +1302,7 @@ gfc_build_qualified_array (tree decl, gfc_symbol * sym)
          tree elem_len = GFC_TYPE_ARRAY_ELEM_LEN (type);
          elem_len = fold_convert_loc (input_location, gfc_array_index_type,
                                       elem_len);
-         off = fold_build2_loc (input_location, PLUS_EXPR,
-                                gfc_array_index_type, off, elem_len);
-         tree size_units = fold_build2_loc (input_location, EXACT_DIV_EXPR,
+         tree size_units = fold_build2_loc (input_location, PLUS_EXPR,
                                             gfc_array_index_type,
                                             off, elem_len);
          tree size = fold_build2_loc (input_location, MULT_EXPR,