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

[Mikael Morin]

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

commit fdbf55930161616a60e20772f3dd8d6c06593ee7
Author: Mikael Morin <mikael@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))