[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Suppression code redondant

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:0aef3272bde76847317337411e9b7b75e74dc101

commit 0aef3272bde76847317337411e9b7b75e74dc101
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jan 30 20:57:37 2025 +0100

    Suppression code redondant

Diff:
---
 gcc/fortran/trans-expr.cc | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 860224066167..18d54d2a1f93 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -193,14 +193,6 @@ set_descriptor_from_scalar (stmtblock_t *block, tree desc, 
tree scalar,
 
   gfc_conv_descriptor_span_set (block, desc, integer_zero_node);
 
-  if (CONSTANT_CLASS_P (scalar))
-    {
-      tree tmp;
-      tmp = gfc_create_var (TREE_TYPE (scalar), "scalar");
-      gfc_add_modify (block, tmp, scalar);
-      scalar = tmp;
-    }
-
   tree tmp;
   if (is_class)
     tmp = gfc_class_data_get (scalar);