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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:183c60aabac6fbca556d403067b65cf191567276

commit 183c60aabac6fbca556d403067b65cf191567276
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Aug 13 19:00:05 2025 +0200

    Correction pr85938

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 84145f13f7df..8cc56c8a17f9 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1388,6 +1388,8 @@ gfc_conv_shift_descriptor (stmtblock_t *block, tree dest, 
tree src,
                              gfc_conv_descriptor_ubound_get (src, dim),
                              stride, &offset);
 
+      gfc_conv_descriptor_stride_set (block, dest, dim, stride);
+
       offset = gfc_evaluate_now (offset, block);
     }