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

[Mikael Morin]

https://gcc.gnu.org/g:3c7040af45a2f801b96488440eb914d18974948e

commit 3c7040af45a2f801b96488440eb914d18974948e
Author: Mikael Morin <mikael@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 4cb279b4c6ca..f264e79732e5 100644
--- a/gcc/fortran/trans-intrinsic.cc
+++ b/gcc/fortran/trans-intrinsic.cc
@@ -4992,10 +4992,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);