https://gcc.gnu.org/g:bc40798c693403b586d3308c1275b6401502ddd0
commit bc40798c693403b586d3308c1275b6401502ddd0 Author: Mikael Morin <mik...@gcc.gnu.org> Date: Mon Mar 17 19:26:09 2025 +0100 Essai suppression initialisation span dans gfc_conv_expr_descriptor Diff: --- gcc/fortran/trans-array.cc | 8 -------- 1 file changed, 8 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 9a66f722e157..647a8d814b71 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7883,14 +7883,6 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr) else gcc_assert (se->ss == ss); - if (!is_pointer_array (se->expr)) - { - tmp = gfc_get_element_type (TREE_TYPE (se->expr)); - tmp = fold_convert (gfc_array_index_type, - size_in_bytes (tmp)); - gfc_conv_descriptor_span_set (&se->pre, se->expr, tmp); - } - se->expr = gfc_build_addr_expr (NULL_TREE, se->expr); gfc_conv_expr (se, expr);