simul-vhdl_simul: keep default value of collapsed signals

1 files changed, 10 insertions, 1 deletions

diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb
index d71e15c67..e0dd59b6b 100644
--- a/src/simul/simul-vhdl_simul.adb
+++ b/src/simul/simul-vhdl_simul.adb
@@ -2703,7 +2703,16 @@ package body Simul.Vhdl_Simul is
                     (E.Sig, E.Typ, E.Val, 0, E.Nbr_Sources.all);
                end if;
                --  The signal value is the value of the collapsed signal.
-               --  TODO: keep the default value ?
+               if Get_Mode (E.Decl) in Iir_Out_Modes then
+                  --  Keep default value.
+                  Copy_Memory (Signals_Table.Table (E.Collapsed_By).Val,
+                               E.Val,
+                               E.Typ.Sz);
+                  Exec_Write_Signal
+                    (Signals_Table.Table (E.Collapsed_By).Sig,
+                     (E.Typ, E.Val), Write_Signal_Driving_Value);
+               end if;
+
                E.Val := Signals_Table.Table (E.Collapsed_By).Val;
             end if;
          end;