[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] utilisation booléen allocatable

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:84be5a435f2a78f8a9ab0bdf5b693a1e0c6b6fd5

commit 84be5a435f2a78f8a9ab0bdf5b693a1e0c6b6fd5
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jan 23 21:38:24 2025 +0100

    utilisation booléen allocatable

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 95b168fe76a8..518a5a127cf0 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5938,12 +5938,12 @@ set_dtype_for_unallocated (gfc_se *parmse, gfc_expr *e)
 
 static void
 set_gfc_from_cfi (stmtblock_t *block, tree gfc, tree cfi, tree rank,
-                 gfc_symbol *c_sym)
+                 bool allocatable)
 {
   tree tmp = gfc_get_cfi_desc_base_addr (cfi);
   gfc_conv_descriptor_data_set (block, gfc, tmp);
 
-  if (c_sym->attr.allocatable)
+  if (allocatable)
     {
       /* gfc->span = cfi->elem_len.  */
       tmp = fold_convert (gfc_array_index_type,
@@ -6396,7 +6396,7 @@ done:
       tmp = gfc_get_cfi_desc_base_addr (cfi);
       gfc_conv_descriptor_data_set (&block, gfc, tmp);
 
-      set_gfc_from_cfi (&block2, gfc, cfi, rank, fsym);
+      set_gfc_from_cfi (&block2, gfc, cfi, rank, fsym->attr.allocatable);
     }
 
   if (e->ts.type == BT_CHARACTER && !e->ts.u.cl->length)