aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug052/tb_simple1.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/bug052/tb_simple1.vhdl')
-rw-r--r--testsuite/gna/bug052/tb_simple1.vhdl12
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/gna/bug052/tb_simple1.vhdl b/testsuite/gna/bug052/tb_simple1.vhdl
new file mode 100644
index 000000000..636f62802
--- /dev/null
+++ b/testsuite/gna/bug052/tb_simple1.vhdl
@@ -0,0 +1,12 @@
+entity tb_simple1 is
+ generic (v : natural := 4);
+ package pkg1 is
+ constant c : natural := v + 1;
+ end pkg1;
+end tb_simple1;
+
+architecture behav of tb_simple1 is
+begin
+ assert pkg1.c = 5 severity failure;
+ assert pkg1.c /= 5 report "value is correct" severity note;
+end behav;