1 files changed, 5 insertions, 2 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 2120332ba..9de1aff56 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -1559,9 +1559,12 @@ package body Errorout is
          "(" & Disp_Node (Callee) & " is defined here)", Callee);
    end Error_Pure;
 
-   procedure Error_Not_Match (Expr: Iir; A_Type: Iir)
-   is
+   procedure Error_Not_Match (Expr: Iir; A_Type: Iir) is
    begin
+      if Get_Kind (A_Type) = Iir_Kind_Error then
+         --  Cascade error message.
+         return;
+      end if;
       Error_Msg_Sem ("can't match " & Disp_Node (Expr) & " with type "
                      & Disp_Node (A_Type), Expr);
    end Error_Not_Match;