https://gcc.gnu.org/g:eda9637f3ea2999f7c8d8b7aebb4866867d0c4ec
commit eda9637f3ea2999f7c8d8b7aebb4866867d0c4ec
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Fri Apr 18 18:39:53 2025 +0200
Correction régression minmaxloc_11
Diff:
---
libgfortran/generated/maxloc2_16_s1.c | 4 ++--
libgfortran/generated/maxloc2_16_s4.c | 4 ++--
libgfortran/generated/maxloc2_4_s1.c | 4 ++--
libgfortran/generated/maxloc2_4_s4.c | 4 ++--
libgfortran/generated/maxloc2_8_s1.c | 4 ++--
libgfortran/generated/maxloc2_8_s4.c | 4 ++--
libgfortran/generated/minloc2_16_s1.c | 4 ++--
libgfortran/generated/minloc2_16_s4.c | 4 ++--
libgfortran/generated/minloc2_4_s1.c | 4 ++--
libgfortran/generated/minloc2_4_s4.c | 4 ++--
libgfortran/generated/minloc2_8_s1.c | 4 ++--
libgfortran/generated/minloc2_8_s4.c | 4 ++--
libgfortran/m4/maxloc2s.m4 | 4 ++--
libgfortran/m4/minloc2s.m4 | 4 ++--
14 files changed, 28 insertions(+), 28 deletions(-)
diff --git a/libgfortran/generated/maxloc2_16_s1.c
b/libgfortran/generated/maxloc2_16_s1.c
index 4acc8500c7e8..97aa33c28389 100644
--- a/libgfortran/generated/maxloc2_16_s1.c
+++ b/libgfortran/generated/maxloc2_16_s1.c
@@ -57,7 +57,7 @@ maxloc2_16_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back, gfc_char
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_16_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc2_16_s4.c
b/libgfortran/generated/maxloc2_16_s4.c
index 4da3f36a9293..8612879740b6 100644
--- a/libgfortran/generated/maxloc2_16_s4.c
+++ b/libgfortran/generated/maxloc2_16_s4.c
@@ -57,7 +57,7 @@ maxloc2_16_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back, gfc_char
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_16_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc2_4_s1.c
b/libgfortran/generated/maxloc2_4_s1.c
index 8c76611f488c..527f13a121f9 100644
--- a/libgfortran/generated/maxloc2_4_s1.c
+++ b/libgfortran/generated/maxloc2_4_s1.c
@@ -57,7 +57,7 @@ maxloc2_4_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back, gfc_charl
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_4_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc2_4_s4.c
b/libgfortran/generated/maxloc2_4_s4.c
index 0d041ed6e3d1..4f5651d53e02 100644
--- a/libgfortran/generated/maxloc2_4_s4.c
+++ b/libgfortran/generated/maxloc2_4_s4.c
@@ -57,7 +57,7 @@ maxloc2_4_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back, gfc_charl
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_4_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc2_8_s1.c
b/libgfortran/generated/maxloc2_8_s1.c
index f19edb2a34ba..3c5f3d1168b4 100644
--- a/libgfortran/generated/maxloc2_8_s1.c
+++ b/libgfortran/generated/maxloc2_8_s1.c
@@ -57,7 +57,7 @@ maxloc2_8_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back, gfc_charl
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_8_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc2_8_s4.c
b/libgfortran/generated/maxloc2_8_s4.c
index 93824dd997b5..c7bb3e61ce32 100644
--- a/libgfortran/generated/maxloc2_8_s4.c
+++ b/libgfortran/generated/maxloc2_8_s4.c
@@ -57,7 +57,7 @@ maxloc2_8_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back, gfc_charl
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -99,7 +99,7 @@ mmaxloc2_8_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_16_s1.c
b/libgfortran/generated/minloc2_16_s1.c
index 92600ed9b816..ead18dc56273 100644
--- a/libgfortran/generated/minloc2_16_s1.c
+++ b/libgfortran/generated/minloc2_16_s1.c
@@ -58,7 +58,7 @@ minloc2_16_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_16_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_16_s4.c
b/libgfortran/generated/minloc2_16_s4.c
index fe58e50100af..2d2320a109a2 100644
--- a/libgfortran/generated/minloc2_16_s4.c
+++ b/libgfortran/generated/minloc2_16_s4.c
@@ -58,7 +58,7 @@ minloc2_16_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_16_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_4_s1.c
b/libgfortran/generated/minloc2_4_s1.c
index 49f0af3bd26d..23040723bcd5 100644
--- a/libgfortran/generated/minloc2_4_s1.c
+++ b/libgfortran/generated/minloc2_4_s1.c
@@ -58,7 +58,7 @@ minloc2_4_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_4_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_4_s4.c
b/libgfortran/generated/minloc2_4_s4.c
index 65cbe52b306d..f72063b6aacb 100644
--- a/libgfortran/generated/minloc2_4_s4.c
+++ b/libgfortran/generated/minloc2_4_s4.c
@@ -58,7 +58,7 @@ minloc2_4_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_4_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_8_s1.c
b/libgfortran/generated/minloc2_8_s1.c
index e1b0fff24a35..dc5b16538256 100644
--- a/libgfortran/generated/minloc2_8_s1.c
+++ b/libgfortran/generated/minloc2_8_s1.c
@@ -58,7 +58,7 @@ minloc2_8_s1 (gfc_array_s1 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_8_s1 (gfc_array_s1 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc2_8_s4.c
b/libgfortran/generated/minloc2_8_s4.c
index 420a7fdd21af..c50ba8a53fb8 100644
--- a/libgfortran/generated/minloc2_8_s4.c
+++ b/libgfortran/generated/minloc2_8_s4.c
@@ -58,7 +58,7 @@ minloc2_8_s4 (gfc_array_s4 * const restrict array,
GFC_LOGICAL_4 back,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ mminloc2_8_s4 (gfc_array_s4 * const restrict array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/m4/maxloc2s.m4 b/libgfortran/m4/maxloc2s.m4
index fcd3247ee9a3..eea780eb50b0 100644
--- a/libgfortran/m4/maxloc2s.m4
+++ b/libgfortran/m4/maxloc2s.m4
@@ -58,7 +58,7 @@ export_proto('name`'rtype_qual`_'atype_code`);
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -100,7 +100,7 @@ m'name`'rtype_qual`_'atype_code` ('atype` * const restrict
array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
diff --git a/libgfortran/m4/minloc2s.m4 b/libgfortran/m4/minloc2s.m4
index 1cb14be0262e..b0c7d0a4dfbe 100644
--- a/libgfortran/m4/minloc2s.m4
+++ b/libgfortran/m4/minloc2s.m4
@@ -59,7 +59,7 @@ export_proto('name`'rtype_qual`_'atype_code`);
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
ret = 1;
src = array->base_addr;
@@ -101,7 +101,7 @@ m'name`'rtype_qual`_'atype_code` ('atype` * const restrict
array,
if (extent <= 0)
return 0;
- sspacing = GFC_DESCRIPTOR_SPACING(array,0) * len;
+ sspacing = GFC_DESCRIPTOR_SPACING(array,0);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mbase = mask->base_addr;
