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

[Mikael Morin]

https://gcc.gnu.org/g:0b94ae9b64889a2d7f7487b2b7dfa801fe1d61f8

commit 0b94ae9b64889a2d7f7487b2b7dfa801fe1d61f8
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Wed Sep 10 13:00:17 2025 +0200

    Correction maxloc1.m4

Diff:
---
 libgfortran/m4/ifunction.m4 | 4 ++++
 libgfortran/m4/maxloc1.m4   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index 43f8edebcb9f..079e3f1ef99e 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -90,6 +90,8 @@ void
 
       retarray->offset = 0;
       retarray->dtype.rank = rank;
+      retarray->dtype.elem_len = sizeof ('rtype_name`);
+      retarray->span = sizeof ('rtype_name`);
 
       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
 
@@ -284,6 +286,8 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
 
       retarray->offset = 0;
       retarray->dtype.rank = rank;
+      retarray->dtype.elem_len = sizeof ('rtype_name`);
+      retarray->span = sizeof ('rtype_name`);
 
       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
       if (alloc_size == 0)
diff --git a/libgfortran/m4/maxloc1.m4 b/libgfortran/m4/maxloc1.m4
index 884ab3e6a473..f5f66cd1a119 100644
--- a/libgfortran/m4/maxloc1.m4
+++ b/libgfortran/m4/maxloc1.m4
@@ -50,7 +50,7 @@ ARRAY_FUNCTION(0,
 		      result = (rtype_name)n + 1;
 		      break;
 		    }
-		  src += delta;
+		  PTR_INCREMENT_BYTES (src, delta);
 		}
 #else
 	    n = 0;