https://gcc.gnu.org/g:6464c79a960ff98a7e99853d791b5db3dddad611

commit 6464c79a960ff98a7e99853d791b5db3dddad611
Author: Mikael Morin <[email protected]>
Date:   Tue Sep 9 21:17:18 2025 +0200

    Correction ifindloc0.m4

Diff:
---
 libgfortran/m4/ifindloc0.m4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libgfortran/m4/ifindloc0.m4 b/libgfortran/m4/ifindloc0.m4
index 72ce3ab4f933..7675a03def98 100644
--- a/libgfortran/m4/ifindloc0.m4
+++ b/libgfortran/m4/ifindloc0.m4
@@ -57,7 +57,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If 
not, see
                                "FINDLOC");
     }
 
-  dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0);
+  dstride = GFC_DESCRIPTOR_STRIDE(retarray,0);
   dest = retarray->base_addr;
 
   /* Set the return value.  */
@@ -205,7 +205,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  
If not, see
   else
     internal_error (NULL, "Funny sized logical array");
 
-  dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0);
+  dstride = GFC_DESCRIPTOR_STRIDE(retarray,0);
   dest = retarray->base_addr;
 
   /* Set the return value.  */

Reply via email to