From 9a7fd0bcf82ea2cbe8197c34a6cd09ed86185169 Mon Sep 17 00:00:00 2001
From: Mikael Morin <mikael@gcc.gnu.org>
Date: Thu, 16 Oct 2025 10:46:11 +0200
Subject: [PATCH] =?UTF-8?q?Correction=20r=C3=A9gression=20dependency=5F49.?=
 =?UTF-8?q?f90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 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;