[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression PR100040.f90

[Mikael Morin via Gcc-cvs]

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

commit ab8a4abe9ee9c6688dba764eb78d7d10e95d1764
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Jan 28 22:24:59 2025 +0100

    Correction régression PR100040.f90

Diff:
---
 gcc/fortran/trans-expr.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index a22eceabbf36..6afb344245f2 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -189,7 +189,7 @@ set_descriptor_from_scalar (stmtblock_t *block, tree desc, 
tree scalar,
   if (!POINTER_TYPE_P (TREE_TYPE (tmp)))
     tmp = gfc_build_addr_expr (NULL_TREE, tmp);
 
-  gfc_conv_descriptor_data_set (block, desc, scalar);
+  gfc_conv_descriptor_data_set (block, desc, tmp);
 }