1 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/gna/ticket94/tb4.vhd b/testsuite/gna/ticket94/tb4.vhd
new file mode 100644
index 0000000..d981701
--- /dev/null
+++ b/testsuite/gna/ticket94/tb4.vhd
@@ -0,0 +1,31 @@
+
+library ieee;
+use ieee.std_logic_1164.all;
+library alib;
+
+entity tb4 is
+end;
+
+architecture arch of tb4 is
+
+    signal a, b :  std_logic := '0';
+    component acomp is
+        port (x: in std_ulogic; y: out std_ulogic);
+    end component;
+
+begin
+    ainst: acomp
+        port map (a, b);
+
+    process is
+    begin
+        a <= '0';
+        wait for 1 ns;
+        assert b = '0' report "component is missing" severity failure;
+        a <= '1';
+        wait for 1 ns;
+        assert b = '1' report "component is missing" severity failure;
+        wait;
+  end process;
+
+end architecture;