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
            {

Reply via email to