summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug21052/test3.vhd
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/bug21052/test3.vhd')
-rw-r--r--testsuite/gna/bug21052/test3.vhd27
1 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/gna/bug21052/test3.vhd b/testsuite/gna/bug21052/test3.vhd
new file mode 100644
index 0000000..9eb42ce
--- /dev/null
+++ b/testsuite/gna/bug21052/test3.vhd
@@ -0,0 +1,27 @@
+package some_package is
+ -- this signal seems to be problematic
+ -- uncomment to reproduce the bug
+ signal some_signal :bit;
+ component some_component end component;
+end package;
+
+entity some_component is end entity;
+architecture a of some_component is begin end architecture;
+
+entity wrapper is end entity;
+architecture a of wrapper is begin
+ inst :work.some_package.some_component;
+end architecture;
+
+entity test is end entity;
+architecture a of test is
+ component wrapper is end component;
+ signal dummy :bit;
+begin
+ inst :if false generate inst :wrapper; end generate;
+ process begin
+ wait for 1 ns; dummy <= '1';
+ wait for 1 ns; dummy <= '0';
+ wait;
+ end process;
+end architecture;