https://gcc.gnu.org/g:d42a6c151c9847c4ea52dc5c0c52284b50cceb26
commit d42a6c151c9847c4ea52dc5c0c52284b50cceb26 Author: Mikael Morin <[email protected]> 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 bfaeebb507fc..6ca614daa510 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -10951,11 +10951,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 {
