[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction macro GFC_DESCRIPTOR_EXTENT

[Mikael Morin via Gcc-cvs]

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

commit ad98bdc4b83263c6599dfaf031829f566733b7a9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Apr 17 14:25:36 2025 +0200

    Correction macro GFC_DESCRIPTOR_EXTENT

Diff:
---
 libgfortran/libgfortran.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index 1a8068185d35..018ec445d58d 100644
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -476,7 +476,7 @@ typedef GFC_FULL_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, 
GFC_INTEGER_4) gfc_full_a
 #define GFC_DESCRIPTOR_LBOUND(desc,i) ((desc)->dim[i].lower_bound)
 #define GFC_DESCRIPTOR_UBOUND(desc,i) ((desc)->dim[i]._ubound)
 #define GFC_DESCRIPTOR_SPACING(desc,i) ((desc)->dim[i].spacing)
-#define GFC_DESCRIPTOR_EXTENT(desc,i) (GFC_DESCRIPTOR_UBOUND(desc,i) + 
(GFC_DESCRIPTOR_LBOUND(desc,i) - 1))
+#define GFC_DESCRIPTOR_EXTENT(desc,i) (GFC_DESCRIPTOR_UBOUND(desc,i) - 
(GFC_DESCRIPTOR_LBOUND(desc,i) - 1))
 
 #define GFC_DESCRIPTOR_STRIDE(desc,i) (GFC_DESCRIPTOR_SPACING(desc,i) / 
GFC_DESCRIPTOR_SIZE(desc))