[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression class_transformational_2

[Mikael Morin via Gcc-cvs]

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

commit cf483b5ab35b5c7e1e68e60fc767b5796e2969c7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Feb 13 18:22:47 2025 +0100

    Correction régression class_transformational_2

Diff:
---
 gcc/fortran/trans-array.cc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 41c336d699b1..ba040d25241d 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3621,10 +3621,9 @@ set_temporary_descriptor (stmtblock_t *block, tree desc, 
tree class_src,
                          tree stride[GFC_MAX_DIMENSIONS], int rank,
                          bool callee_allocated, bool rank_changer)
 {
-  tree class_expr = NULL_TREE;
   int n;
 
-  if (!class_expr)
+  if (!class_src)
     {
       /* Fill in the array dtype.  */
       gfc_conv_descriptor_dtype_set (block, desc,