https://gcc.gnu.org/g:ccd1a8797bc1c75a443a237755b3394fe75de895
commit ccd1a8797bc1c75a443a237755b3394fe75de895 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 c5cbe2efca49..171fbd78fe6c 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -10912,11 +10912,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 {