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

[Mikael Morin]

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

commit ebdb9721a7bbc235aad3f90e5af63b2b6deb14aa
Author: Mikael Morin <mikael@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 5e9a91dae220..94a3690aee4a 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -6102,12 +6102,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,
@@ -6560,7 +6560,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)