1 files changed, 4 insertions, 9 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 31c105c19..da499d449 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -4242,9 +4242,11 @@ package body Vhdl.Sem_Expr is
       loop
          case Get_Kind (Obj) is
             when Iir_Kind_Signal_Declaration
-              | Iir_Kind_Constant_Declaration
+              | Iir_Kind_Variable_Declaration =>
+               Set_Use_Flag (Obj, True);
+               return;
+            when Iir_Kind_Constant_Declaration
               | Iir_Kind_Interface_Constant_Declaration
-              | Iir_Kind_Variable_Declaration
               | Iir_Kind_Attribute_Value
               | Iir_Kind_Iterator_Declaration
               | Iir_Kind_Guard_Signal_Declaration =>
@@ -4326,13 +4328,6 @@ package body Vhdl.Sem_Expr is
       end loop;
    end Check_Read;
 
-   procedure Check_Update (Expr : Iir)
-   is
-      pragma Unreferenced (Expr);
-   begin
-      null;
-   end Check_Update;
-
    --  Emit an error if the constant EXPR is deferred and cannot be used in
    --  the current context.
    procedure Check_Constant_Restriction (Expr : Iir; Loc : Iir)