https://gcc.gnu.org/g:3dd5636bca10607f9f6d84e29c32270e8d897a9a
commit 3dd5636bca10607f9f6d84e29c32270e8d897a9a Author: Mikael Morin <[email protected]> Date: Tue Sep 9 21:17:46 2025 +0200 Régénération fichiers générés Diff: --- libgfortran/generated/findloc0_c10.c | 4 ++-- libgfortran/generated/findloc0_c16.c | 4 ++-- libgfortran/generated/findloc0_c17.c | 4 ++-- libgfortran/generated/findloc0_c4.c | 4 ++-- libgfortran/generated/findloc0_c8.c | 4 ++-- libgfortran/generated/findloc0_i1.c | 4 ++-- libgfortran/generated/findloc0_i16.c | 4 ++-- libgfortran/generated/findloc0_i2.c | 4 ++-- libgfortran/generated/findloc0_i4.c | 4 ++-- libgfortran/generated/findloc0_i8.c | 4 ++-- libgfortran/generated/findloc0_r10.c | 4 ++-- libgfortran/generated/findloc0_r16.c | 4 ++-- libgfortran/generated/findloc0_r17.c | 4 ++-- libgfortran/generated/findloc0_r4.c | 4 ++-- libgfortran/generated/findloc0_r8.c | 4 ++-- libgfortran/generated/findloc0_s1.c | 4 ++-- libgfortran/generated/findloc0_s4.c | 4 ++-- 17 files changed, 34 insertions(+), 34 deletions(-) diff --git a/libgfortran/generated/findloc0_c10.c b/libgfortran/generated/findloc0_c10.c index b6c5bab9d24b..ef38aa1423b2 100644 --- a/libgfortran/generated/findloc0_c10.c +++ b/libgfortran/generated/findloc0_c10.c @@ -66,7 +66,7 @@ findloc0_c10 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_c10 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_c16.c b/libgfortran/generated/findloc0_c16.c index ec99514a0ab9..4935dc3ec1e8 100644 --- a/libgfortran/generated/findloc0_c16.c +++ b/libgfortran/generated/findloc0_c16.c @@ -66,7 +66,7 @@ findloc0_c16 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_c16 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_c17.c b/libgfortran/generated/findloc0_c17.c index 6baaaff45e27..932fbf256a49 100644 --- a/libgfortran/generated/findloc0_c17.c +++ b/libgfortran/generated/findloc0_c17.c @@ -66,7 +66,7 @@ findloc0_c17 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_c17 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_c4.c b/libgfortran/generated/findloc0_c4.c index 5692c344bc3d..a251158f9eba 100644 --- a/libgfortran/generated/findloc0_c4.c +++ b/libgfortran/generated/findloc0_c4.c @@ -66,7 +66,7 @@ findloc0_c4 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_c4 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_c8.c b/libgfortran/generated/findloc0_c8.c index 1dc82ece63f2..7177189dc150 100644 --- a/libgfortran/generated/findloc0_c8.c +++ b/libgfortran/generated/findloc0_c8.c @@ -66,7 +66,7 @@ findloc0_c8 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_c8 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_i1.c b/libgfortran/generated/findloc0_i1.c index ce73f09bfeb5..bb9bb489f38e 100644 --- a/libgfortran/generated/findloc0_i1.c +++ b/libgfortran/generated/findloc0_i1.c @@ -66,7 +66,7 @@ findloc0_i1 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_i1 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_i16.c b/libgfortran/generated/findloc0_i16.c index af06d4f6a2ed..46bcc4b09921 100644 --- a/libgfortran/generated/findloc0_i16.c +++ b/libgfortran/generated/findloc0_i16.c @@ -66,7 +66,7 @@ findloc0_i16 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_i16 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_i2.c b/libgfortran/generated/findloc0_i2.c index 7d1c2e2688ed..cd3592153c2e 100644 --- a/libgfortran/generated/findloc0_i2.c +++ b/libgfortran/generated/findloc0_i2.c @@ -66,7 +66,7 @@ findloc0_i2 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_i2 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_i4.c b/libgfortran/generated/findloc0_i4.c index f7b8bf73ea59..f74c72ba1eb7 100644 --- a/libgfortran/generated/findloc0_i4.c +++ b/libgfortran/generated/findloc0_i4.c @@ -66,7 +66,7 @@ findloc0_i4 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_i4 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_i8.c b/libgfortran/generated/findloc0_i8.c index cc2c028c04a2..eaa47f558204 100644 --- a/libgfortran/generated/findloc0_i8.c +++ b/libgfortran/generated/findloc0_i8.c @@ -66,7 +66,7 @@ findloc0_i8 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_i8 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_r10.c b/libgfortran/generated/findloc0_r10.c index 9ce5e738bed6..db26e63a8c29 100644 --- a/libgfortran/generated/findloc0_r10.c +++ b/libgfortran/generated/findloc0_r10.c @@ -66,7 +66,7 @@ findloc0_r10 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_r10 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_r16.c b/libgfortran/generated/findloc0_r16.c index ef0b36a292db..41faa8960b93 100644 --- a/libgfortran/generated/findloc0_r16.c +++ b/libgfortran/generated/findloc0_r16.c @@ -66,7 +66,7 @@ findloc0_r16 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_r16 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_r17.c b/libgfortran/generated/findloc0_r17.c index 280a1c6f32c0..40deef2f212c 100644 --- a/libgfortran/generated/findloc0_r17.c +++ b/libgfortran/generated/findloc0_r17.c @@ -66,7 +66,7 @@ findloc0_r17 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_r17 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_r4.c b/libgfortran/generated/findloc0_r4.c index e4060620866a..a8398eb1d9bf 100644 --- a/libgfortran/generated/findloc0_r4.c +++ b/libgfortran/generated/findloc0_r4.c @@ -66,7 +66,7 @@ findloc0_r4 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_r4 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_r8.c b/libgfortran/generated/findloc0_r8.c index 848ed847fda7..957da983bee0 100644 --- a/libgfortran/generated/findloc0_r8.c +++ b/libgfortran/generated/findloc0_r8.c @@ -66,7 +66,7 @@ findloc0_r8 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -222,7 +222,7 @@ mfindloc0_r8 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_s1.c b/libgfortran/generated/findloc0_s1.c index 6f73c449251b..0ef360275994 100644 --- a/libgfortran/generated/findloc0_s1.c +++ b/libgfortran/generated/findloc0_s1.c @@ -67,7 +67,7 @@ findloc0_s1 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -225,7 +225,7 @@ mfindloc0_s1 (gfc_array_index_type * const restrict retarray, 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. */ diff --git a/libgfortran/generated/findloc0_s4.c b/libgfortran/generated/findloc0_s4.c index 86fda1929944..dc8305eb6ba0 100644 --- a/libgfortran/generated/findloc0_s4.c +++ b/libgfortran/generated/findloc0_s4.c @@ -67,7 +67,7 @@ findloc0_s4 (gfc_array_index_type * const restrict retarray, "FINDLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); dest = retarray->base_addr; /* Set the return value. */ @@ -225,7 +225,7 @@ mfindloc0_s4 (gfc_array_index_type * const restrict retarray, 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. */
