[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction ifindloc0.m4

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:669cb09f8a5e47d05d9861e43bd2ce251ee34dd1

commit 669cb09f8a5e47d05d9861e43bd2ce251ee34dd1
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Sep 9 21:23:12 2025 +0200

    Correction ifindloc0.m4

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

diff --git a/libgfortran/m4/ifindloc0.m4 b/libgfortran/m4/ifindloc0.m4
index 7675a03def98..f5e392c5e791 100644
--- a/libgfortran/m4/ifindloc0.m4
+++ b/libgfortran/m4/ifindloc0.m4
@@ -228,7 +228,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  
If not, see
 
   if (back)
     {
-      base = (const 'atype_name` *) (((char*)array->base_addr) + (sz - 1) * 
'base_mult`);
+      base = array->base_addr + (sz - 1) * 'base_mult`;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {