[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Modif implémentation descriptor_extent_get

[Mikael Morin]

https://gcc.gnu.org/g:cc2084b11fecbda8f341b906cb72ed329f115e8b

commit cc2084b11fecbda8f341b906cb72ed329f115e8b
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Sat Sep 6 17:37:52 2025 +0200

    Modif implémentation descriptor_extent_get

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 5a5f57835ea5..556a749fad6c 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -602,8 +602,8 @@ gfc_conv_descriptor_extent_get (tree desc, tree dim)
   tree ubound = gfc_conv_descriptor_ubound_get (desc, dim);
 
   tree tmp = fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type,
-			      gfc_index_one_node, lbound);
-  return fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type,
+			      lbound, gfc_index_one_node);
+  return fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type,
 			  ubound, tmp);
 }