diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-04 20:20:29 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-04 20:20:29 +0200 |
commit | ac03fdc89c3bcc3cd08eed179113309835f9b4fb (patch) | |
tree | d9fc971e69225d908036069f204bf0c8486f1cd1 /testsuite/gna/bug053/tb2.vhdl | |
parent | d99f387f2391531eeba31a0cd143a39a2b6cd011 (diff) | |
download | ghdl-ac03fdc89c3bcc3cd08eed179113309835f9b4fb.tar.gz ghdl-ac03fdc89c3bcc3cd08eed179113309835f9b4fb.tar.bz2 ghdl-ac03fdc89c3bcc3cd08eed179113309835f9b4fb.zip |
Add testcase for previous commit.
Diffstat (limited to 'testsuite/gna/bug053/tb2.vhdl')
-rw-r--r-- | testsuite/gna/bug053/tb2.vhdl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/bug053/tb2.vhdl b/testsuite/gna/bug053/tb2.vhdl new file mode 100644 index 000000000..efda78609 --- /dev/null +++ b/testsuite/gna/bug053/tb2.vhdl @@ -0,0 +1,17 @@ +package pkg2 is + package pkg1 is + constant c : natural := 5; +-- function f return natural; + end pkg1; +end pkg2; + +entity tb2 is +end tb2; + +use work.pkg2.all; + +architecture behav of tb2 is +begin + assert pkg1.c = 5 severity failure; + assert pkg1.c /= 5 report "value is correct" severity note; +end behav; |