https://gcc.gnu.org/g:88bb1c150134a7de9fbfaa33a276d8ff4b6726f6
commit 88bb1c150134a7de9fbfaa33a276d8ff4b6726f6
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 65c1e70fff05..3390c5732ed4 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 7b0c670d0b4f..bd0c0b2eb4d2 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 5fbba9d6c60f..4fe27a7c83f2 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 272a07b4bafb..6e660450bbdf 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 ffaf9e4c34c4..2e8cb7946d79 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 561c155a4860..b17e941e5a03 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 49eb02177595..dfac2dcdc2d8 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 7a72490888a2..6f860da4ce52 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 bc8f7c5abc1a..ebe333cf6521 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 a2a8fc3e7736..b7ffb913f177 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 4a421abbb04b..84e4ac612d1f 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 fde5d89d2bc4..b3241f4321d3 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 3bbf0577d9d8..629c417cae17 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 2c7a6584ce5a..420c8ff0b7c6 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;
