https://gcc.gnu.org/g:0d0f6416904b3fdaec4d668639047e0de1cae79a
commit 0d0f6416904b3fdaec4d668639047e0de1cae79a Author: Mikael Morin <[email protected]> Date: Sun Sep 6 10:53:39 2026 +0200 Revert partiel Diff: --- libgfortran/intrinsics/associated.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/libgfortran/intrinsics/associated.c b/libgfortran/intrinsics/associated.c index 5787d1c57e40..5ea333f9984e 100644 --- a/libgfortran/intrinsics/associated.c +++ b/libgfortran/intrinsics/associated.c @@ -61,8 +61,7 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target) spacing of the elements there instead, and carries the length separately. Require the two to agree on one or the other: if they agree on neither, the storage sequences differ. */ - if (GFC_DESCRIPTOR_SIZE (pointer) != GFC_DESCRIPTOR_SIZE (target) - && GFC_DESCRIPTOR_SPAN (pointer) != GFC_DESCRIPTOR_SPAN (target)) + if (GFC_DESCRIPTOR_SPAN (pointer) != GFC_DESCRIPTOR_SPAN (target)) return 0; if (GFC_DESCRIPTOR_DTYPE (pointer).type != GFC_DESCRIPTOR_DTYPE (target).type) return 0;
