https://gcc.gnu.org/g:4e25bc8cae58a7d863c3501cc99c73fbc9a25e20
commit 4e25bc8cae58a7d863c3501cc99c73fbc9a25e20
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Tue Sep 9 18:17:13 2025 +0200
Régénération fichiers générés
Diff:
---
libgfortran/generated/spread_c10.c | 4 ++--
libgfortran/generated/spread_c16.c | 4 ++--
libgfortran/generated/spread_c17.c | 4 ++--
libgfortran/generated/spread_c4.c | 4 ++--
libgfortran/generated/spread_c8.c | 4 ++--
libgfortran/generated/spread_i1.c | 4 ++--
libgfortran/generated/spread_i16.c | 4 ++--
libgfortran/generated/spread_i2.c | 4 ++--
libgfortran/generated/spread_i4.c | 4 ++--
libgfortran/generated/spread_i8.c | 4 ++--
libgfortran/generated/spread_r10.c | 4 ++--
libgfortran/generated/spread_r16.c | 4 ++--
libgfortran/generated/spread_r17.c | 4 ++--
libgfortran/generated/spread_r4.c | 4 ++--
libgfortran/generated/spread_r8.c | 4 ++--
15 files changed, 30 insertions(+), 30 deletions(-)
diff --git a/libgfortran/generated/spread_c10.c
b/libgfortran/generated/spread_c10.c
index 64d6491dc577..49050722d408 100644
--- a/libgfortran/generated/spread_c10.c
+++ b/libgfortran/generated/spread_c10.c
@@ -77,7 +77,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_COMPLEX_10);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_c16.c
b/libgfortran/generated/spread_c16.c
index 66e35f27a841..9c913e5ede46 100644
--- a/libgfortran/generated/spread_c16.c
+++ b/libgfortran/generated/spread_c16.c
@@ -77,7 +77,7 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_COMPLEX_16);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_c17.c
b/libgfortran/generated/spread_c17.c
index 4640277653fb..ec93dc8b2db0 100644
--- a/libgfortran/generated/spread_c17.c
+++ b/libgfortran/generated/spread_c17.c
@@ -77,7 +77,7 @@ spread_c17 (gfc_array_c17 *ret, const gfc_array_c17 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_c17 (gfc_array_c17 *ret, const gfc_array_c17 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_COMPLEX_17);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_c4.c
b/libgfortran/generated/spread_c4.c
index 5497a1ce7d9e..822ab8acc541 100644
--- a/libgfortran/generated/spread_c4.c
+++ b/libgfortran/generated/spread_c4.c
@@ -77,7 +77,7 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_COMPLEX_4);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_c8.c
b/libgfortran/generated/spread_c8.c
index 2f17e7d82e06..d73a1afaf647 100644
--- a/libgfortran/generated/spread_c8.c
+++ b/libgfortran/generated/spread_c8.c
@@ -77,7 +77,7 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_COMPLEX_8);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_i1.c
b/libgfortran/generated/spread_i1.c
index 733e7ee3bd5c..1dec2f523cb8 100644
--- a/libgfortran/generated/spread_i1.c
+++ b/libgfortran/generated/spread_i1.c
@@ -77,7 +77,7 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_INTEGER_1);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_i16.c
b/libgfortran/generated/spread_i16.c
index 28688d40bc10..9705a4f7cdb1 100644
--- a/libgfortran/generated/spread_i16.c
+++ b/libgfortran/generated/spread_i16.c
@@ -77,7 +77,7 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_INTEGER_16);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_i2.c
b/libgfortran/generated/spread_i2.c
index 8131b9e07e80..5b338eca3aed 100644
--- a/libgfortran/generated/spread_i2.c
+++ b/libgfortran/generated/spread_i2.c
@@ -77,7 +77,7 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_INTEGER_2);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_i4.c
b/libgfortran/generated/spread_i4.c
index 20c058d312ee..60b84568fab7 100644
--- a/libgfortran/generated/spread_i4.c
+++ b/libgfortran/generated/spread_i4.c
@@ -77,7 +77,7 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_INTEGER_4);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_i8.c
b/libgfortran/generated/spread_i8.c
index fe47e34cd265..a5ff975f304d 100644
--- a/libgfortran/generated/spread_i8.c
+++ b/libgfortran/generated/spread_i8.c
@@ -77,7 +77,7 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_INTEGER_8);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_r10.c
b/libgfortran/generated/spread_r10.c
index 342dc1cd4568..29528e79f2c7 100644
--- a/libgfortran/generated/spread_r10.c
+++ b/libgfortran/generated/spread_r10.c
@@ -77,7 +77,7 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_REAL_10);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_r16.c
b/libgfortran/generated/spread_r16.c
index aa942f0f70c1..2e10d9a4811a 100644
--- a/libgfortran/generated/spread_r16.c
+++ b/libgfortran/generated/spread_r16.c
@@ -77,7 +77,7 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_REAL_16);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_r17.c
b/libgfortran/generated/spread_r17.c
index acf9179ade18..29c342b522bf 100644
--- a/libgfortran/generated/spread_r17.c
+++ b/libgfortran/generated/spread_r17.c
@@ -77,7 +77,7 @@ spread_r17 (gfc_array_r17 *ret, const gfc_array_r17 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_r17 (gfc_array_r17 *ret, const gfc_array_r17 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_REAL_17);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_r4.c
b/libgfortran/generated/spread_r4.c
index 7ac48512b478..e51f8657bd7d 100644
--- a/libgfortran/generated/spread_r4.c
+++ b/libgfortran/generated/spread_r4.c
@@ -77,7 +77,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_REAL_4);
ub = extent[dim] - 1;
rs *= extent[dim];
diff --git a/libgfortran/generated/spread_r8.c
b/libgfortran/generated/spread_r8.c
index dce605d59532..08af4989736d 100644
--- a/libgfortran/generated/spread_r8.c
+++ b/libgfortran/generated/spread_r8.c
@@ -77,7 +77,7 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source,
ret->dtype.rank = rrank;
dim = 0;
- rs = GFC_DESCRIPTOR_SIZE(ret);
+ rs = 1;
for (n = 0; n < rrank; n++)
{
stride = rs;
@@ -92,7 +92,7 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source,
count[dim] = 0;
extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);
sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);
- rstride[dim] = rs;
+ rstride[dim] = rs * sizeof (GFC_REAL_8);
ub = extent[dim] - 1;
rs *= extent[dim];
