[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction partielle matmul_bounds_6

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:871393ff8103aafef6a34ca5b715b8a00b6e0afa

commit 871393ff8103aafef6a34ca5b715b8a00b6e0afa
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Apr 28 21:50:25 2025 +0200

    Correction partielle matmul_bounds_6

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 5c82f81e81c1..91768ac4b18a 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2445,7 +2445,7 @@ gfc_conv_shift_descriptor (stmtblock_t *block, tree dest, 
tree src,
                           int rank, tree zero_cond)
 {
   conv_shift_descriptor (block, src, dest, rank,
-                        cond_descr_lb (dest, zero_cond));
+                        cond_descr_lb (src, zero_cond));
 }