Fix ticket11: remove from active list a signal not active in the next delta due

 to a second assignment.

2 files changed, 30 insertions, 0 deletions

diff --git a/testsuite/gna/ticket11/signalevents.vhdl b/testsuite/gna/ticket11/signalevents.vhdl
new file mode 100644
index 000000000..98161ae8b
--- /dev/null
+++ b/testsuite/gna/ticket11/signalevents.vhdl
@@ -0,0 +1,20 @@
+entity tb is
+end entity;
+
+architecture arch of tb is
+    signal s: integer := 0;
+begin
+    process is
+    begin
+        wait for 1 us;
+        s <= 1;
+        s <= 2 after 1 us;
+        assert s = 0;
+        wait on s;
+        report "s = " & integer'image(s);
+        assert s = 2 severity failure;
+        assert now = 2 us severity failure;
+        wait;
+    end process;
+
+end architecture;
diff --git a/testsuite/gna/ticket11/testsuite.sh b/testsuite/gna/ticket11/testsuite.sh
new file mode 100755
index 000000000..7226710c9
--- /dev/null
+++ b/testsuite/gna/ticket11/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze signalevents.vhdl
+elab_simulate tb
+
+clean
+
+echo "Test successful"