https://gcc.gnu.org/g:0356d8bf7bba62bf7a5b9c7103175d92716d4f26
commit 0356d8bf7bba62bf7a5b9c7103175d92716d4f26 Author: Mikael Morin <[email protected]> Date: Tue Sep 9 17:27:27 2025 +0200 Régénération fichiers générés Diff: --- libgfortran/generated/findloc1_c10.c | 2 +- libgfortran/generated/findloc1_c16.c | 2 +- libgfortran/generated/findloc1_c17.c | 2 +- libgfortran/generated/findloc1_c4.c | 2 +- libgfortran/generated/findloc1_c8.c | 2 +- libgfortran/generated/findloc1_i1.c | 2 +- libgfortran/generated/findloc1_i16.c | 2 +- libgfortran/generated/findloc1_i2.c | 2 +- libgfortran/generated/findloc1_i4.c | 2 +- libgfortran/generated/findloc1_i8.c | 2 +- libgfortran/generated/findloc1_r10.c | 2 +- libgfortran/generated/findloc1_r16.c | 2 +- libgfortran/generated/findloc1_r17.c | 2 +- libgfortran/generated/findloc1_r4.c | 2 +- libgfortran/generated/findloc1_r8.c | 2 +- libgfortran/generated/findloc1_s1.c | 2 +- libgfortran/generated/findloc1_s4.c | 2 +- 17 files changed, 17 insertions(+), 17 deletions(-) diff --git a/libgfortran/generated/findloc1_c10.c b/libgfortran/generated/findloc1_c10.c index 34bf9b72c323..309f40553892 100644 --- a/libgfortran/generated/findloc1_c10.c +++ b/libgfortran/generated/findloc1_c10.c @@ -139,7 +139,7 @@ findloc1_c10 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_COMPLEX_10 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_c16.c b/libgfortran/generated/findloc1_c16.c index cc0c54744558..ab197f311424 100644 --- a/libgfortran/generated/findloc1_c16.c +++ b/libgfortran/generated/findloc1_c16.c @@ -139,7 +139,7 @@ findloc1_c16 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_COMPLEX_16 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_c17.c b/libgfortran/generated/findloc1_c17.c index 8a83cd7f6980..0faa9b52f931 100644 --- a/libgfortran/generated/findloc1_c17.c +++ b/libgfortran/generated/findloc1_c17.c @@ -139,7 +139,7 @@ findloc1_c17 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_COMPLEX_17 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_c4.c b/libgfortran/generated/findloc1_c4.c index 6c7d54441dd7..11fcb242fb09 100644 --- a/libgfortran/generated/findloc1_c4.c +++ b/libgfortran/generated/findloc1_c4.c @@ -139,7 +139,7 @@ findloc1_c4 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_COMPLEX_4 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_c8.c b/libgfortran/generated/findloc1_c8.c index a5bba7b3f0cd..bdca0845fde7 100644 --- a/libgfortran/generated/findloc1_c8.c +++ b/libgfortran/generated/findloc1_c8.c @@ -139,7 +139,7 @@ findloc1_c8 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_COMPLEX_8 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_i1.c b/libgfortran/generated/findloc1_i1.c index 604de3108571..f3d3b493f8ce 100644 --- a/libgfortran/generated/findloc1_i1.c +++ b/libgfortran/generated/findloc1_i1.c @@ -139,7 +139,7 @@ findloc1_i1 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_INTEGER_1 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_i16.c b/libgfortran/generated/findloc1_i16.c index cb8a0ccdc71c..4d11b5a88677 100644 --- a/libgfortran/generated/findloc1_i16.c +++ b/libgfortran/generated/findloc1_i16.c @@ -139,7 +139,7 @@ findloc1_i16 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_INTEGER_16 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_i2.c b/libgfortran/generated/findloc1_i2.c index b779209dd96d..39cbf6c63467 100644 --- a/libgfortran/generated/findloc1_i2.c +++ b/libgfortran/generated/findloc1_i2.c @@ -139,7 +139,7 @@ findloc1_i2 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_INTEGER_2 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_i4.c b/libgfortran/generated/findloc1_i4.c index 805727cf256c..d65a5c2d9825 100644 --- a/libgfortran/generated/findloc1_i4.c +++ b/libgfortran/generated/findloc1_i4.c @@ -139,7 +139,7 @@ findloc1_i4 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_INTEGER_4 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_i8.c b/libgfortran/generated/findloc1_i8.c index 981524f353d6..1f1a17361a43 100644 --- a/libgfortran/generated/findloc1_i8.c +++ b/libgfortran/generated/findloc1_i8.c @@ -139,7 +139,7 @@ findloc1_i8 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_INTEGER_8 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_r10.c b/libgfortran/generated/findloc1_r10.c index 31b3755142da..62d29399d8f4 100644 --- a/libgfortran/generated/findloc1_r10.c +++ b/libgfortran/generated/findloc1_r10.c @@ -139,7 +139,7 @@ findloc1_r10 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_REAL_10 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_r16.c b/libgfortran/generated/findloc1_r16.c index 130774589c36..b15ea271ef89 100644 --- a/libgfortran/generated/findloc1_r16.c +++ b/libgfortran/generated/findloc1_r16.c @@ -139,7 +139,7 @@ findloc1_r16 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_REAL_16 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_r17.c b/libgfortran/generated/findloc1_r17.c index a5aa8effc154..f519f95080bd 100644 --- a/libgfortran/generated/findloc1_r17.c +++ b/libgfortran/generated/findloc1_r17.c @@ -139,7 +139,7 @@ findloc1_r17 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_REAL_17 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_r4.c b/libgfortran/generated/findloc1_r4.c index 719e0365b76a..b9b35473cb9d 100644 --- a/libgfortran/generated/findloc1_r4.c +++ b/libgfortran/generated/findloc1_r4.c @@ -139,7 +139,7 @@ findloc1_r4 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_REAL_4 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_r8.c b/libgfortran/generated/findloc1_r8.c index 8380bebc13e1..496cfe5c7fe5 100644 --- a/libgfortran/generated/findloc1_r8.c +++ b/libgfortran/generated/findloc1_r8.c @@ -139,7 +139,7 @@ findloc1_r8 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * 1; + src = (const GFC_REAL_8 * restrict) (((char*) base) + (len - 1) * delta * 1); for (n = len; n > 0; n--) { if (*src == value) diff --git a/libgfortran/generated/findloc1_s1.c b/libgfortran/generated/findloc1_s1.c index c73f5e4e7fee..848160a2b345 100644 --- a/libgfortran/generated/findloc1_s1.c +++ b/libgfortran/generated/findloc1_s1.c @@ -141,7 +141,7 @@ findloc1_s1 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * len_array; + src = (const GFC_UINTEGER_1 * restrict) (((char*) base) + (len - 1) * delta * len_array); for (n = len; n > 0; n--) { if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) diff --git a/libgfortran/generated/findloc1_s4.c b/libgfortran/generated/findloc1_s4.c index 548d7e33d417..f86150264dc5 100644 --- a/libgfortran/generated/findloc1_s4.c +++ b/libgfortran/generated/findloc1_s4.c @@ -141,7 +141,7 @@ findloc1_s4 (gfc_array_index_type * const restrict retarray, result = 0; if (back) { - src = base + (len - 1) * delta * len_array; + src = (const GFC_UINTEGER_4 * restrict) (((char*) base) + (len - 1) * delta * len_array); for (n = len; n > 0; n--) { if (compare_string_char4 (len_array, src, len_value, value) == 0)
