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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:063a71bf122c8e34d4d631077b19e2907dfeab3c

commit 063a71bf122c8e34d4d631077b19e2907dfeab3c
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 e8feeab7e95e..d6872c1de62a 100644
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -477,7 +477,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))