[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction associate_38

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:0a58b165bec6fa2ab982d2eeeb254cf6d0dc2a3d

commit 0a58b165bec6fa2ab982d2eeeb254cf6d0dc2a3d
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Aug 14 10:24:48 2025 +0200

    Correction associate_38

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index b41470050cb1..5791765e44b1 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1231,7 +1231,7 @@ shift_dimension_bounds (stmtblock_t * block, tree descr, 
tree dim,
                                 gfc_array_index_type, orig_ubound, diff);
   gfc_conv_descriptor_ubound_set (block, descr, dim, ubound);
   tree tmp = fold_build2_loc (input_location, MULT_EXPR,
-                             gfc_array_index_type, new_lbound, orig_stride);
+                             gfc_array_index_type, diff, orig_stride);
   tree off = fold_build2_loc (input_location, MINUS_EXPR,
                              gfc_array_index_type, *offset_value,
                              tmp);