1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb
index f80a28cde..79e5d2e31 100644
--- a/src/vhdl/sem_stmts.adb
+++ b/src/vhdl/sem_stmts.adb
@@ -503,6 +503,10 @@ package body Sem_Stmts is
                Set_We_Value (We, Expr);
 
                Merge_Wildcard_Type (Expr, Waveform_Type);
+            else
+               Expr := Get_We_Value (We);
+               Expr := Create_Error_Expr (Expr, Waveform_Type);
+               Set_We_Value (We, Expr);
             end if;
          end if;