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

[Mikael Morin via Gcc-cvs]

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

commit fe8c567d6554f6e47fbea88be57450584442f6ed
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 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;
 }