2 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb
index e06b795ab..3cd7bf736 100644
--- a/src/vhdl/vhdl-canon.adb
+++ b/src/vhdl/vhdl-canon.adb
@@ -2989,7 +2989,7 @@ package body Vhdl.Canon is
                Canon_Expression (Get_Expression (Decl));
             end if;
             --  Create a signal assignment.
-            if Canon_Flag_Associations then
+            if Canon_Flag_Inertial_Associations then
                declare
                   Parent : constant Node := Get_Parent (Decl);
                   Asgn : Iir;
diff --git a/src/vhdl/vhdl-canon.ads b/src/vhdl/vhdl-canon.ads
index 477928bcb..50099ba3c 100644
--- a/src/vhdl/vhdl-canon.ads
+++ b/src/vhdl/vhdl-canon.ads
@@ -34,6 +34,10 @@ package Vhdl.Canon is
    --  association with a non globally expression).
    Canon_Flag_Associations : Boolean := True;
 
+   --  If true, create a concurrent signal assignment for internal
+   --  associations.
+   Canon_Flag_Inertial_Associations : Boolean := True;
+
    --  If true, canon lists in specifications.
    Canon_Flag_Specification_Lists : Boolean := True;