1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index da499d449..8bb2ad324 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -4928,7 +4928,9 @@ package body Vhdl.Sem_Expr is
          if A_Type /= Null_Iir
            and then Are_Types_Compatible (Expr_Type, A_Type) = Not_Compatible
          then
-            Error_Not_Match (Expr, A_Type);
+            if not Is_Error (Expr_Type) then
+               Error_Not_Match (Expr, A_Type);
+            end if;
             return Null_Iir;
          end if;
          return Expr;