1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index 693d561fe..9a2e8dd6e 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -1023,6 +1023,10 @@ package body Canon is
       Last : Iir;
       Assoc, El : Iir;
    begin
+      if not Canon_Flag_Associations then
+         return Null_Iir;
+      end if;
+
       El := Interface_Chain;
       Sub_Chain_Init (Res, Last);
       while El /= Null_Iir loop