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

[Mikael Morin via Gcc-cvs]

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

commit caad7ff152e6581f53132a021916344724a47642
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Jan 29 21:14:52 2025 +0100

    Correction régression associated_assumed_rank.f90

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index d5bf453f61df..860224066167 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -191,6 +191,8 @@ set_descriptor_from_scalar (stmtblock_t *block, tree desc, 
tree scalar,
   tree dtype_ref = gfc_conv_descriptor_dtype (desc);
   gfc_add_modify (block, dtype_ref, dtype_val);
 
+  gfc_conv_descriptor_span_set (block, desc, integer_zero_node);
+
   if (CONSTANT_CLASS_P (scalar))
     {
       tree tmp;