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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9a355695e3a19962e037e606f42a8e606b112b08

commit 9a355695e3a19962e037e606f42a8e606b112b08
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 dfc98925dc18..a0236f30843d 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2458,7 +2458,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));
 }