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

[Mikael Morin]

https://gcc.gnu.org/g:3f9b9eeab177f2f514d00688dabfecd7fb2e3f7b

commit 3f9b9eeab177f2f514d00688dabfecd7fb2e3f7b
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Tue Sep 9 17:26:52 2025 +0200

    Correction ifindloc1.m4

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

diff --git a/libgfortran/m4/ifindloc1.m4 b/libgfortran/m4/ifindloc1.m4
index 4aac6d6f2bfe..d196f3f6cda6 100644
--- a/libgfortran/m4/ifindloc1.m4
+++ b/libgfortran/m4/ifindloc1.m4
@@ -131,7 +131,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
       result = 0;
       if (back)
 	{
-	  src = base + (len - 1) * delta * 'base_mult`;
+	  src = (const 'atype_name` * restrict) (((char*) base) + (len - 1) * delta * 'base_mult`);
 	  for (n = len; n > 0; n--)
 	    {
 	      if ('comparison`)