[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régressions finalization

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:b26be78f868369b8d7ed073e144e675d04875e10

commit b26be78f868369b8d7ed073e144e675d04875e10
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon May 26 17:26:44 2025 +0200

    Correction régressions finalization

Diff:
---
 gcc/fortran/class.cc | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/gcc/fortran/class.cc b/gcc/fortran/class.cc
index ac80a9ddd239..51c15900750c 100644
--- a/gcc/fortran/class.cc
+++ b/gcc/fortran/class.cc
@@ -1351,7 +1351,7 @@ finalization_scalarizer (gfc_symbol *array, gfc_symbol 
*ptr,
 static gfc_code*
 finalization_get_offset (gfc_symbol *idx, gfc_symbol *idx2, gfc_symbol *offset,
                         gfc_symbol *strides, gfc_symbol *sizes,
-                        gfc_symbol *byte_stride, gfc_expr *rank,
+                        gfc_symbol *byte_stride ATTRIBUTE_UNUSED, gfc_expr 
*rank,
                         gfc_code *block, gfc_namespace *sub_ns)
 {
   gfc_iterator *iter;
@@ -1445,17 +1445,6 @@ finalization_get_offset (gfc_symbol *idx, gfc_symbol 
*idx2, gfc_symbol *offset,
   block->block->next->expr2->ts = idx->ts;
   block->block->next->expr2->where = gfc_current_locus;
 
-  /* After the loop:  offset = offset * byte_stride.  */
-  block->next = gfc_get_code (EXEC_ASSIGN);
-  block = block->next;
-  block->expr1 = gfc_lval_expr_from_sym (offset);
-  block->expr2 = gfc_get_expr ();
-  block->expr2->expr_type = EXPR_OP;
-  block->expr2->value.op.op = INTRINSIC_TIMES;
-  block->expr2->value.op.op1 = gfc_lval_expr_from_sym (offset);
-  block->expr2->value.op.op2 = gfc_lval_expr_from_sym (byte_stride);
-  block->expr2->ts = block->expr2->value.op.op1->ts;
-  block->expr2->where = gfc_current_locus;
   return block;
 }