1 files changed, 1 insertions, 0 deletions
diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb
index 4296008eb..01cfc6b9a 100644
--- a/src/simul/simul-vhdl_elab.adb
+++ b/src/simul/simul-vhdl_elab.adb
@@ -984,6 +984,7 @@ package body Simul.Vhdl_Elab is
             Processes_Table.Table (I).Inst := Proc_Inst;
             Elab.Vhdl_Decls.Elab_Declarations
               (Proc_Inst, Get_Declaration_Chain (Proc), True);
+            exit when Is_Error (Proc_Inst);
          end if;
       end loop;
       Instance_Pool := null;