vhdl: warns on unused component declarations

1 files changed, 3 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb
index 8c16b6cea..dff5f256b 100644
--- a/src/vhdl/vhdl-sem_stmts.adb
+++ b/src/vhdl/vhdl-sem_stmts.adb
@@ -1875,6 +1875,7 @@ package body Vhdl.Sem_Stmts is
             --  Already analyzed before, while trying to separate
             --  concurrent procedure calls from instantiation stmts.
             pragma Assert (Get_Kind (Comp) = Iir_Kind_Component_Declaration);
+            Set_Use_Flag (Comp, True);
             return Comp;
          end if;
 
@@ -1896,6 +1897,8 @@ package body Vhdl.Sem_Stmts is
             return Null_Iir;
          end if;
 
+         Set_Use_Flag (Comp, True);
+
          return Comp;
       end if;
    end Sem_Instantiated_Unit;