https://gcc.gnu.org/g:603a48d3b0f4123c21f8136ab46cf7514fca33d5
commit 603a48d3b0f4123c21f8136ab46cf7514fca33d5 Author: Mikael Morin <mik...@gcc.gnu.org> Date: Tue Jul 15 19:19:24 2025 +0200 Suppression initialisation span pour les pointeurs Diff: --- gcc/fortran/trans-decl.cc | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index fd9268793508..66fd67e61f60 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -4922,20 +4922,6 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block) } } - if (sym->attr.pointer && sym->attr.dimension - && sym->attr.save == SAVE_NONE - && !sym->attr.use_assoc - && !sym->attr.host_assoc - && !sym->attr.dummy - && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (sym->backend_decl))) - { - gfc_init_block (&tmpblock); - gfc_conv_descriptor_span_set (&tmpblock, sym->backend_decl, - build_int_cst (gfc_array_index_type, 0)); - gfc_add_init_cleanup (block, gfc_finish_block (&tmpblock), - NULL_TREE); - } - if (sym->ts.type == BT_CLASS && (sym->attr.save || flag_max_stack_var_size == 0) && CLASS_DATA (sym)->attr.allocatable)