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

[Mikael Morin]

https://gcc.gnu.org/g:488de06396cd2d992d02ef1c6099720463ef8a14

commit 488de06396cd2d992d02ef1c6099720463ef8a14
Author: Mikael Morin <mikael@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 41be63bf768f..aee7f2ce8f5e 100644
--- a/gcc/fortran/class.cc
+++ b/gcc/fortran/class.cc
@@ -1349,7 +1349,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;
@@ -1443,17 +1443,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;
 }