https://gcc.gnu.org/g:0b94ae9b64889a2d7f7487b2b7dfa801fe1d61f8
commit 0b94ae9b64889a2d7f7487b2b7dfa801fe1d61f8 Author: Mikael Morin <[email protected]> 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;
