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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:570be3a24b978d03da8f25c024928096ffbc5569

commit 570be3a24b978d03da8f25c024928096ffbc5569
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue May 6 20:42:15 2025 +0200

    Correction régression intrinsic_mmloc_2

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

diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc
index 12a317440cff..233537664be6 100644
--- a/gcc/fortran/trans-intrinsic.cc
+++ b/gcc/fortran/trans-intrinsic.cc
@@ -5007,10 +5007,10 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * 
expr, enum tree_code op)
       as.rank = 1;
       as.lower[0] = gfc_get_int_expr (gfc_index_integer_kind,
                                      &arrayexpr->where,
-                                     HOST_WIDE_INT_1);
+                                     HOST_WIDE_INT_0);
       as.upper[0] = gfc_get_int_expr (gfc_index_integer_kind,
                                      &arrayexpr->where,
-                                     arrayexpr->rank);
+                                     arrayexpr->rank - 1);
 
       tree array = gfc_get_nodesc_array_type (type, &as, PACKED_STATIC, true);