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

[Mikael Morin via Gcc-cvs]

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

commit b8a0a2e387494d73a6b3b2f1612b0cdfc9d00c36
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Oct 16 10:46:11 2025 +0200

    Correction régression dependency_49.f90

Diff:
---
 gcc/fortran/frontend-passes.cc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 595c5095eaf9..37721f08fe14 100644
--- a/gcc/fortran/frontend-passes.cc
+++ b/gcc/fortran/frontend-passes.cc
@@ -801,6 +801,7 @@ create_var (gfc_expr * e, const char *vname)
             allocatable.  */
          symbol->as->type = AS_DEFERRED;
          symbol->attr.allocatable = 1;
+         symbol->ts.deferred = true;
        }
       else
        {
@@ -823,7 +824,7 @@ create_var (gfc_expr * e, const char *vname)
        }
     }
 
-  deferred = 0;
+  deferred = false;
   if (e->ts.type == BT_CHARACTER)
     {
       gfc_expr *length;
@@ -840,11 +841,11 @@ create_var (gfc_expr * e, const char *vname)
        {
          symbol->attr.allocatable = 1;
          symbol->ts.u.cl->length = NULL;
-         symbol->ts.deferred = 1;
          deferred = 1;
        }
     }
 
+  symbol->ts.deferred = deferred;
   symbol->attr.flavor = FL_VARIABLE;
   symbol->attr.referenced = 1;
   symbol->attr.dimension = e->rank > 0;