2 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index e3c5d281f..693d561fe 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -871,6 +871,10 @@ package body Canon is
 
       Found : Boolean;
    begin
+      if not Canon_Flag_Associations then
+         return Association_Chain;
+      end if;
+
       --  No argument, so return now.
       if Interface_Chain = Null_Iir then
          pragma Assert (Association_Chain = Null_Iir);
diff --git a/src/vhdl/canon.ads b/src/vhdl/canon.ads
index 7401c8402..869755472 100644
--- a/src/vhdl/canon.ads
+++ b/src/vhdl/canon.ads
@@ -31,6 +31,9 @@ package Canon is
    --  If true, canon configuration.
    Canon_Flag_Configurations : Boolean := True;
 
+   --  If true, canon associations (reorder, add open associations).
+   Canon_Flag_Associations : Boolean := True;
+
    --  If true, canon lists in specifications.
    Canon_Flag_Specification_Lists : Boolean := True;