https://gcc.gnu.org/g:d8e509d0ad729942dabbd64b912d6a62907de29b
commit d8e509d0ad729942dabbd64b912d6a62907de29b
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Wed Feb 12 18:50:20 2025 +0100
Réduction différences
Diff:
---
gcc/fortran/trans-array.cc | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 6765034f9bd6..41c336d699b1 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3646,9 +3646,6 @@ set_temporary_descriptor (stmtblock_t *block, tree desc,
tree class_src,
gfc_conv_descriptor_rank_set (block, desc, rank);
}
- /* Set the span. */
- gfc_conv_descriptor_span_set (block, desc, elemsize);
-
if (!callee_allocated)
{
for (n = 0; n < rank; n++)
@@ -3664,6 +3661,8 @@ set_temporary_descriptor (stmtblock_t *block, tree desc,
tree class_src,
}
}
+ gfc_conv_descriptor_span_set (block, desc, elemsize);
+
gfc_conv_descriptor_data_set (block, desc, data_ptr);
/* The offset is zero because we create temporaries with a zero
