https://gcc.gnu.org/g:67315b79e8df81ab130cdf74e4885d1bca9c20ee
commit 67315b79e8df81ab130cdf74e4885d1bca9c20ee
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Sun May 18 18:14:33 2025 +0200
Correction régression matmul_bounds_6
Diff:
---
libgfortran/generated/pack_c10.c | 2 ++
libgfortran/generated/pack_c16.c | 2 ++
libgfortran/generated/pack_c17.c | 2 ++
libgfortran/generated/pack_c4.c | 2 ++
libgfortran/generated/pack_c8.c | 2 ++
libgfortran/generated/pack_i1.c | 2 ++
libgfortran/generated/pack_i16.c | 2 ++
libgfortran/generated/pack_i2.c | 2 ++
libgfortran/generated/pack_i4.c | 2 ++
libgfortran/generated/pack_i8.c | 2 ++
libgfortran/generated/pack_r10.c | 2 ++
libgfortran/generated/pack_r16.c | 2 ++
libgfortran/generated/pack_r17.c | 2 ++
libgfortran/generated/pack_r4.c | 2 ++
libgfortran/generated/pack_r8.c | 2 ++
libgfortran/m4/pack.m4 | 2 ++
16 files changed, 32 insertions(+)
diff --git a/libgfortran/generated/pack_c10.c b/libgfortran/generated/pack_c10.c
index 39105933d961..ea12303103a4 100644
--- a/libgfortran/generated/pack_c10.c
+++ b/libgfortran/generated/pack_c10.c
@@ -163,6 +163,8 @@ pack_c10 (gfc_array_c10 *ret, const gfc_array_c10 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_COMPLEX_10));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_COMPLEX_10);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_COMPLEX_10));
diff --git a/libgfortran/generated/pack_c16.c b/libgfortran/generated/pack_c16.c
index d242c1226c18..82951eae09df 100644
--- a/libgfortran/generated/pack_c16.c
+++ b/libgfortran/generated/pack_c16.c
@@ -163,6 +163,8 @@ pack_c16 (gfc_array_c16 *ret, const gfc_array_c16 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_COMPLEX_16));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_COMPLEX_16);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_COMPLEX_16));
diff --git a/libgfortran/generated/pack_c17.c b/libgfortran/generated/pack_c17.c
index 485e611b00ec..6fa9d42e9597 100644
--- a/libgfortran/generated/pack_c17.c
+++ b/libgfortran/generated/pack_c17.c
@@ -163,6 +163,8 @@ pack_c17 (gfc_array_c17 *ret, const gfc_array_c17 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_COMPLEX_17));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_COMPLEX_17);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_COMPLEX_17));
diff --git a/libgfortran/generated/pack_c4.c b/libgfortran/generated/pack_c4.c
index 027c41d2e162..5dfadc4d8745 100644
--- a/libgfortran/generated/pack_c4.c
+++ b/libgfortran/generated/pack_c4.c
@@ -163,6 +163,8 @@ pack_c4 (gfc_array_c4 *ret, const gfc_array_c4 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_COMPLEX_4));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_COMPLEX_4);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_COMPLEX_4));
diff --git a/libgfortran/generated/pack_c8.c b/libgfortran/generated/pack_c8.c
index c2a2c65ad69a..8536cac6f03c 100644
--- a/libgfortran/generated/pack_c8.c
+++ b/libgfortran/generated/pack_c8.c
@@ -163,6 +163,8 @@ pack_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_COMPLEX_8));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_COMPLEX_8);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_COMPLEX_8));
diff --git a/libgfortran/generated/pack_i1.c b/libgfortran/generated/pack_i1.c
index f52ff5aefa52..f9fda25c6ac5 100644
--- a/libgfortran/generated/pack_i1.c
+++ b/libgfortran/generated/pack_i1.c
@@ -163,6 +163,8 @@ pack_i1 (gfc_array_i1 *ret, const gfc_array_i1 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_INTEGER_1));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_INTEGER_1);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_INTEGER_1));
diff --git a/libgfortran/generated/pack_i16.c b/libgfortran/generated/pack_i16.c
index 3bf6b9562654..6acf6468947d 100644
--- a/libgfortran/generated/pack_i16.c
+++ b/libgfortran/generated/pack_i16.c
@@ -163,6 +163,8 @@ pack_i16 (gfc_array_i16 *ret, const gfc_array_i16 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_INTEGER_16));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_INTEGER_16);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_INTEGER_16));
diff --git a/libgfortran/generated/pack_i2.c b/libgfortran/generated/pack_i2.c
index 1c30743af491..729d325e5bac 100644
--- a/libgfortran/generated/pack_i2.c
+++ b/libgfortran/generated/pack_i2.c
@@ -163,6 +163,8 @@ pack_i2 (gfc_array_i2 *ret, const gfc_array_i2 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_INTEGER_2));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_INTEGER_2);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_INTEGER_2));
diff --git a/libgfortran/generated/pack_i4.c b/libgfortran/generated/pack_i4.c
index 7de562f71806..e87e2c4f1a2c 100644
--- a/libgfortran/generated/pack_i4.c
+++ b/libgfortran/generated/pack_i4.c
@@ -163,6 +163,8 @@ pack_i4 (gfc_array_i4 *ret, const gfc_array_i4 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_INTEGER_4));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_INTEGER_4);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_INTEGER_4));
diff --git a/libgfortran/generated/pack_i8.c b/libgfortran/generated/pack_i8.c
index 9af09a8aa43a..2e8bca463e80 100644
--- a/libgfortran/generated/pack_i8.c
+++ b/libgfortran/generated/pack_i8.c
@@ -163,6 +163,8 @@ pack_i8 (gfc_array_i8 *ret, const gfc_array_i8 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof(GFC_INTEGER_8));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_INTEGER_8);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_INTEGER_8));
diff --git a/libgfortran/generated/pack_r10.c b/libgfortran/generated/pack_r10.c
index 55e96f5c939a..2f5454886e76 100644
--- a/libgfortran/generated/pack_r10.c
+++ b/libgfortran/generated/pack_r10.c
@@ -163,6 +163,8 @@ pack_r10 (gfc_array_r10 *ret, const gfc_array_r10 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, sizeof(GFC_REAL_10));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_REAL_10);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_REAL_10));
diff --git a/libgfortran/generated/pack_r16.c b/libgfortran/generated/pack_r16.c
index cfa8a0a0b276..f5802e225aec 100644
--- a/libgfortran/generated/pack_r16.c
+++ b/libgfortran/generated/pack_r16.c
@@ -163,6 +163,8 @@ pack_r16 (gfc_array_r16 *ret, const gfc_array_r16 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, sizeof(GFC_REAL_16));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_REAL_16);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_REAL_16));
diff --git a/libgfortran/generated/pack_r17.c b/libgfortran/generated/pack_r17.c
index c79afb76585d..c51271f1bc47 100644
--- a/libgfortran/generated/pack_r17.c
+++ b/libgfortran/generated/pack_r17.c
@@ -163,6 +163,8 @@ pack_r17 (gfc_array_r17 *ret, const gfc_array_r17 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, sizeof(GFC_REAL_17));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_REAL_17);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_REAL_17));
diff --git a/libgfortran/generated/pack_r4.c b/libgfortran/generated/pack_r4.c
index 2b355dd56055..2985c6c02bec 100644
--- a/libgfortran/generated/pack_r4.c
+++ b/libgfortran/generated/pack_r4.c
@@ -163,6 +163,8 @@ pack_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, sizeof(GFC_REAL_4));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_REAL_4);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_REAL_4));
diff --git a/libgfortran/generated/pack_r8.c b/libgfortran/generated/pack_r8.c
index 05fd5620e255..3ba671ac3b1e 100644
--- a/libgfortran/generated/pack_r8.c
+++ b/libgfortran/generated/pack_r8.c
@@ -163,6 +163,8 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, sizeof(GFC_REAL_8));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof (GFC_REAL_8);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof (GFC_REAL_8));
diff --git a/libgfortran/m4/pack.m4 b/libgfortran/m4/pack.m4
index 3474bcb67fbf..606deab32dac 100644
--- a/libgfortran/m4/pack.m4
+++ b/libgfortran/m4/pack.m4
@@ -164,6 +164,8 @@ pack_'rtype_code` ('rtype` *ret, const 'rtype` *array,
GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1,
sizeof('rtype_name`));
ret->offset = 0;
+ GFC_DESCRIPTOR_SIZE (ret) = sizeof ('rtype_name`);
+ GFC_DESCRIPTOR_SPAN (ret) = sizeof ('rtype_name`);
/* xmallocarray allocates a single byte for zero size. */
ret->base_addr = xmallocarray (total, sizeof ('rtype_name`));
