1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 8716dd691..b6147ddb3 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -628,6 +628,10 @@ package body Synth.Stmts is
       Targ := Synth_Target (Syn_Inst, Get_Target (Stmt));
       Val := Synth_Expression_With_Type
         (Syn_Inst, Get_Expression (Stmt), Targ.Targ_Type);
+      if Val = null then
+         Set_Error (Syn_Inst);
+         return;
+      end if;
       Synth_Assignment (Syn_Inst, Targ, Val, Stmt);
    end Synth_Variable_Assignment;