https://gcc.gnu.org/g:3f23edec801f376b27102cb71ed117c9ad6b8fc8
commit 3f23edec801f376b27102cb71ed117c9ad6b8fc8 Author: Mikael Morin <mik...@gcc.gnu.org> Date: Sat Mar 29 11:39:49 2025 +0100 Suppression modification span Diff: --- gcc/fortran/trans-expr.cc | 5 ----- 1 file changed, 5 deletions(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 334309754330..9762918fbff8 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -10885,11 +10885,6 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2) { rse.expr = gfc_class_data_get (rse.expr); gfc_add_modify (&lse.pre, desc, rse.expr); - /* Set the lhs span. */ - tmp = TREE_TYPE (rse.expr); - tmp = TYPE_SIZE_UNIT (gfc_get_element_type (tmp)); - tmp = fold_convert (gfc_array_index_type, tmp); - gfc_conv_descriptor_span_set (&lse.pre, desc, tmp); } else {