https://gcc.gnu.org/g:2ae5005d07c0ebabe60a56e967e3407b311806ff
commit 2ae5005d07c0ebabe60a56e967e3407b311806ff
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Thu May 22 11:44:55 2025 +0200
Correction régression realloc_on_assign_12
Diff:
---
libgfortran/generated/reshape_c10.c | 1 +
libgfortran/generated/reshape_c16.c | 1 +
libgfortran/generated/reshape_c17.c | 1 +
libgfortran/generated/reshape_c4.c | 1 +
libgfortran/generated/reshape_c8.c | 1 +
libgfortran/generated/reshape_i16.c | 1 +
libgfortran/generated/reshape_i4.c | 1 +
libgfortran/generated/reshape_i8.c | 1 +
libgfortran/generated/reshape_r10.c | 1 +
libgfortran/generated/reshape_r16.c | 1 +
libgfortran/generated/reshape_r17.c | 1 +
libgfortran/generated/reshape_r4.c | 1 +
libgfortran/generated/reshape_r8.c | 1 +
libgfortran/m4/reshape.m4 | 1 +
14 files changed, 14 insertions(+)
diff --git a/libgfortran/generated/reshape_c10.c
b/libgfortran/generated/reshape_c10.c
index cdcac44f6103..6a736545188f 100644
--- a/libgfortran/generated/reshape_c10.c
+++ b/libgfortran/generated/reshape_c10.c
@@ -120,6 +120,7 @@ reshape_c10 (gfc_array_c10 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_COMPLEX_10);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_c16.c
b/libgfortran/generated/reshape_c16.c
index dd726933b75f..e8933eadc6c6 100644
--- a/libgfortran/generated/reshape_c16.c
+++ b/libgfortran/generated/reshape_c16.c
@@ -120,6 +120,7 @@ reshape_c16 (gfc_array_c16 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_COMPLEX_16);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_c17.c
b/libgfortran/generated/reshape_c17.c
index ac2d3edf1d4a..0030e5a19aea 100644
--- a/libgfortran/generated/reshape_c17.c
+++ b/libgfortran/generated/reshape_c17.c
@@ -120,6 +120,7 @@ reshape_c17 (gfc_array_c17 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_COMPLEX_17);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_c4.c
b/libgfortran/generated/reshape_c4.c
index e51787d19402..9fc5cd056d0b 100644
--- a/libgfortran/generated/reshape_c4.c
+++ b/libgfortran/generated/reshape_c4.c
@@ -120,6 +120,7 @@ reshape_c4 (gfc_array_c4 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_COMPLEX_4);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_c8.c
b/libgfortran/generated/reshape_c8.c
index 7be820fa8ab3..65cd8c098ae4 100644
--- a/libgfortran/generated/reshape_c8.c
+++ b/libgfortran/generated/reshape_c8.c
@@ -120,6 +120,7 @@ reshape_c8 (gfc_array_c8 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_COMPLEX_8);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_i16.c
b/libgfortran/generated/reshape_i16.c
index 06f83a52beaf..2dcf065f1d0a 100644
--- a/libgfortran/generated/reshape_i16.c
+++ b/libgfortran/generated/reshape_i16.c
@@ -120,6 +120,7 @@ reshape_16 (gfc_array_i16 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_INTEGER_16);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_i4.c
b/libgfortran/generated/reshape_i4.c
index d4175eabe14a..1812c42ec60c 100644
--- a/libgfortran/generated/reshape_i4.c
+++ b/libgfortran/generated/reshape_i4.c
@@ -120,6 +120,7 @@ reshape_4 (gfc_array_i4 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_INTEGER_4);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_i8.c
b/libgfortran/generated/reshape_i8.c
index 6ed4f8b2f237..8013ba3af45e 100644
--- a/libgfortran/generated/reshape_i8.c
+++ b/libgfortran/generated/reshape_i8.c
@@ -120,6 +120,7 @@ reshape_8 (gfc_array_i8 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_INTEGER_8);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_r10.c
b/libgfortran/generated/reshape_r10.c
index 9d9b03b08f10..6b8618fdd0a7 100644
--- a/libgfortran/generated/reshape_r10.c
+++ b/libgfortran/generated/reshape_r10.c
@@ -120,6 +120,7 @@ reshape_r10 (gfc_array_r10 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_REAL_10);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_r16.c
b/libgfortran/generated/reshape_r16.c
index 95e28ee03632..356a8fa4f5a6 100644
--- a/libgfortran/generated/reshape_r16.c
+++ b/libgfortran/generated/reshape_r16.c
@@ -120,6 +120,7 @@ reshape_r16 (gfc_array_r16 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_REAL_16);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_r17.c
b/libgfortran/generated/reshape_r17.c
index bc4c70870648..1fea3d7686a2 100644
--- a/libgfortran/generated/reshape_r17.c
+++ b/libgfortran/generated/reshape_r17.c
@@ -120,6 +120,7 @@ reshape_r17 (gfc_array_r17 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_REAL_17);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_r4.c
b/libgfortran/generated/reshape_r4.c
index 8fe4e8769f60..67c6be7e714b 100644
--- a/libgfortran/generated/reshape_r4.c
+++ b/libgfortran/generated/reshape_r4.c
@@ -120,6 +120,7 @@ reshape_r4 (gfc_array_r4 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_REAL_4);
}
if (shape_empty)
diff --git a/libgfortran/generated/reshape_r8.c
b/libgfortran/generated/reshape_r8.c
index 039050ea88d9..12edb07fd8e4 100644
--- a/libgfortran/generated/reshape_r8.c
+++ b/libgfortran/generated/reshape_r8.c
@@ -120,6 +120,7 @@ reshape_r8 (gfc_array_r8 * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
ret->dtype.rank = rdim;
+ ret->span = sizeof (GFC_REAL_8);
}
if (shape_empty)
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4
index 437faa1fda21..b2ea3315d8c9 100644
--- a/libgfortran/m4/reshape.m4
+++ b/libgfortran/m4/reshape.m4
@@ -124,6 +124,7 @@ reshape_'rtype_ccode` ('rtype` * const restrict ret,
ret->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`));
ret->dtype.rank = rdim;
+ ret->span = sizeof ('rtype_name`);
}
if (shape_empty)
