From 32845f733d21d7330f095df1209ea829148867d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 28 Dec 2021 16:38:39 +0100
Subject: vhdl-sem_decls: copy subtype indication also for files.  Fix #1936

---
 src/vhdl/vhdl-sem_decls.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb
index 9d7f3b20d..a78f482c1 100644
--- a/src/vhdl/vhdl-sem_decls.adb
+++ b/src/vhdl/vhdl-sem_decls.adb
@@ -1167,6 +1167,9 @@ package body Vhdl.Sem_Decls is
             Atype := Create_Error_Type (Get_Type (Decl));
          end if;
       else
+         Set_Is_Ref (Decl, True);
+         Atype := Get_Subtype_Indication (Last_Decl);
+         Set_Subtype_Indication (Decl, Atype);
          Atype := Get_Type (Last_Decl);
       end if;
       Set_Type (Decl, Atype);
-- 
cgit v1.2.3