From 0cb267c3cd2fad19d74ff04340b1fdd65055d9e4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 14 Oct 2022 06:43:27 +0200
Subject: simul: fix spurious error about multiple drivers

---
 src/simul/simul-vhdl_elab.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/simul')

diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb
index bdc6bdf9b..24e79aa17 100644
--- a/src/simul/simul-vhdl_elab.adb
+++ b/src/simul/simul-vhdl_elab.adb
@@ -458,6 +458,7 @@ package body Simul.Vhdl_Elab is
                                  Loc : Node)
    is
       S : Signal_Entry renames Signals_Table.Table (Sig.Base);
+      Resolved : constant Boolean := Get_Resolved_Flag (Get_Type (S.Decl));
       Need_It : Boolean;
    begin
       pragma Assert (Sig.Typ.Wkind = Wkind_Sim);
@@ -478,6 +479,7 @@ package body Simul.Vhdl_Elab is
                if not Need_It
                  and then Ns.Nbr_Drivers > 0
                  and then Ns.Total = 0
+                 and then not Resolved
                then
                   Error_Msg_Elab (Loc, "too many drivers for %n", +S.Decl);
                end if;
-- 
cgit v1.2.3