[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Régénération fichiers générés

[Mikael Morin]

https://gcc.gnu.org/g:1505b2338334fb9bdee8cac949e6ca8bc7c7190a

commit 1505b2338334fb9bdee8cac949e6ca8bc7c7190a
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Tue Sep 9 21:23:39 2025 +0200

    Régénération fichiers générés

Diff:
---
 libgfortran/generated/findloc0_c10.c | 2 +-
 libgfortran/generated/findloc0_c16.c | 2 +-
 libgfortran/generated/findloc0_c17.c | 2 +-
 libgfortran/generated/findloc0_c4.c  | 2 +-
 libgfortran/generated/findloc0_c8.c  | 2 +-
 libgfortran/generated/findloc0_i1.c  | 2 +-
 libgfortran/generated/findloc0_i16.c | 2 +-
 libgfortran/generated/findloc0_i2.c  | 2 +-
 libgfortran/generated/findloc0_i4.c  | 2 +-
 libgfortran/generated/findloc0_i8.c  | 2 +-
 libgfortran/generated/findloc0_r10.c | 2 +-
 libgfortran/generated/findloc0_r16.c | 2 +-
 libgfortran/generated/findloc0_r17.c | 2 +-
 libgfortran/generated/findloc0_r4.c  | 2 +-
 libgfortran/generated/findloc0_r8.c  | 2 +-
 libgfortran/generated/findloc0_s1.c  | 2 +-
 libgfortran/generated/findloc0_s4.c  | 2 +-
 17 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/libgfortran/generated/findloc0_c10.c b/libgfortran/generated/findloc0_c10.c
index ef38aa1423b2..0607524e68fb 100644
--- a/libgfortran/generated/findloc0_c10.c
+++ b/libgfortran/generated/findloc0_c10.c
@@ -245,7 +245,7 @@ mfindloc0_c10 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_COMPLEX_10 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_c16.c b/libgfortran/generated/findloc0_c16.c
index 4935dc3ec1e8..5becb239e3b4 100644
--- a/libgfortran/generated/findloc0_c16.c
+++ b/libgfortran/generated/findloc0_c16.c
@@ -245,7 +245,7 @@ mfindloc0_c16 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_COMPLEX_16 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_c17.c b/libgfortran/generated/findloc0_c17.c
index 932fbf256a49..f55020dab1ba 100644
--- a/libgfortran/generated/findloc0_c17.c
+++ b/libgfortran/generated/findloc0_c17.c
@@ -245,7 +245,7 @@ mfindloc0_c17 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_COMPLEX_17 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_c4.c b/libgfortran/generated/findloc0_c4.c
index a251158f9eba..d6c75e6ddbe9 100644
--- a/libgfortran/generated/findloc0_c4.c
+++ b/libgfortran/generated/findloc0_c4.c
@@ -245,7 +245,7 @@ mfindloc0_c4 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_COMPLEX_4 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_c8.c b/libgfortran/generated/findloc0_c8.c
index 7177189dc150..4eee99759ee8 100644
--- a/libgfortran/generated/findloc0_c8.c
+++ b/libgfortran/generated/findloc0_c8.c
@@ -245,7 +245,7 @@ mfindloc0_c8 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_COMPLEX_8 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_i1.c b/libgfortran/generated/findloc0_i1.c
index bb9bb489f38e..562ee866bc6d 100644
--- a/libgfortran/generated/findloc0_i1.c
+++ b/libgfortran/generated/findloc0_i1.c
@@ -245,7 +245,7 @@ mfindloc0_i1 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_INTEGER_1 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_i16.c b/libgfortran/generated/findloc0_i16.c
index 46bcc4b09921..f2c1666966ce 100644
--- a/libgfortran/generated/findloc0_i16.c
+++ b/libgfortran/generated/findloc0_i16.c
@@ -245,7 +245,7 @@ mfindloc0_i16 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_INTEGER_16 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_i2.c b/libgfortran/generated/findloc0_i2.c
index cd3592153c2e..c688b10d1191 100644
--- a/libgfortran/generated/findloc0_i2.c
+++ b/libgfortran/generated/findloc0_i2.c
@@ -245,7 +245,7 @@ mfindloc0_i2 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_INTEGER_2 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_i4.c b/libgfortran/generated/findloc0_i4.c
index f74c72ba1eb7..97310158fa04 100644
--- a/libgfortran/generated/findloc0_i4.c
+++ b/libgfortran/generated/findloc0_i4.c
@@ -245,7 +245,7 @@ mfindloc0_i4 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_INTEGER_4 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_i8.c b/libgfortran/generated/findloc0_i8.c
index eaa47f558204..f72cad57b5ee 100644
--- a/libgfortran/generated/findloc0_i8.c
+++ b/libgfortran/generated/findloc0_i8.c
@@ -245,7 +245,7 @@ mfindloc0_i8 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_INTEGER_8 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_r10.c b/libgfortran/generated/findloc0_r10.c
index db26e63a8c29..5fb222b3e2a3 100644
--- a/libgfortran/generated/findloc0_r10.c
+++ b/libgfortran/generated/findloc0_r10.c
@@ -245,7 +245,7 @@ mfindloc0_r10 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_REAL_10 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_r16.c b/libgfortran/generated/findloc0_r16.c
index 41faa8960b93..e8ac0f349477 100644
--- a/libgfortran/generated/findloc0_r16.c
+++ b/libgfortran/generated/findloc0_r16.c
@@ -245,7 +245,7 @@ mfindloc0_r16 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_REAL_16 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_r17.c b/libgfortran/generated/findloc0_r17.c
index 40deef2f212c..f4c5ebcb46c2 100644
--- a/libgfortran/generated/findloc0_r17.c
+++ b/libgfortran/generated/findloc0_r17.c
@@ -245,7 +245,7 @@ mfindloc0_r17 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_REAL_17 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_r4.c b/libgfortran/generated/findloc0_r4.c
index a8398eb1d9bf..18a610c12efd 100644
--- a/libgfortran/generated/findloc0_r4.c
+++ b/libgfortran/generated/findloc0_r4.c
@@ -245,7 +245,7 @@ mfindloc0_r4 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_REAL_4 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_r8.c b/libgfortran/generated/findloc0_r8.c
index 957da983bee0..9ac2b7960667 100644
--- a/libgfortran/generated/findloc0_r8.c
+++ b/libgfortran/generated/findloc0_r8.c
@@ -245,7 +245,7 @@ mfindloc0_r8 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_REAL_8 *) (((char*)array->base_addr) + (sz - 1) * 1);
+      base = array->base_addr + (sz - 1) * 1;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_s1.c b/libgfortran/generated/findloc0_s1.c
index 0ef360275994..4876b8d9409d 100644
--- a/libgfortran/generated/findloc0_s1.c
+++ b/libgfortran/generated/findloc0_s1.c
@@ -248,7 +248,7 @@ mfindloc0_s1 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_UINTEGER_1 *) (((char*)array->base_addr) + (sz - 1) * len_array);
+      base = array->base_addr + (sz - 1) * len_array;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {
diff --git a/libgfortran/generated/findloc0_s4.c b/libgfortran/generated/findloc0_s4.c
index dc8305eb6ba0..f90cd011f76b 100644
--- a/libgfortran/generated/findloc0_s4.c
+++ b/libgfortran/generated/findloc0_s4.c
@@ -248,7 +248,7 @@ mfindloc0_s4 (gfc_array_index_type * const restrict retarray,
 
   if (back)
     {
-      base = (const GFC_UINTEGER_4 *) (((char*)array->base_addr) + (sz - 1) * len_array);
+      base = array->base_addr + (sz - 1) * len_array;
       mbase = mbase + (sz - 1) * mask_kind;
       while (1)
         {