diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-01 06:52:15 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-10-01 06:52:15 +0200 |
| commit | fa1727c1ce8cf56069e853c780adc39beee8fc71 (patch) | |
| tree | cfaaa7fedf8fd35147ce98794c017f310ba6089d /testsuite/gna/bug061/test_dict.vhdl | |
| parent | 44095bf454b98b580ff41c92da52ce431a45828d (diff) | |
| download | ghdl-fa1727c1ce8cf56069e853c780adc39beee8fc71.tar.gz ghdl-fa1727c1ce8cf56069e853c780adc39beee8fc71.tar.bz2 ghdl-fa1727c1ce8cf56069e853c780adc39beee8fc71.zip | |
Add a test for interface subprograms.
Diffstat (limited to 'testsuite/gna/bug061/test_dict.vhdl')
| -rw-r--r-- | testsuite/gna/bug061/test_dict.vhdl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/bug061/test_dict.vhdl b/testsuite/gna/bug061/test_dict.vhdl new file mode 100644 index 000000000..b4b1c4f93 --- /dev/null +++ b/testsuite/gna/bug061/test_dict.vhdl @@ -0,0 +1,17 @@ +entity test_dict is +end test_dict; + +use work.datastructures.all; + +architecture behav of test_dict is +begin + process + variable dict : String_String_Dict; + begin + dict.set ("entity", "module"); + dict.set ("process", "always"); + + assert dict.get ("entity") = "module" severity failure; + wait; + end process; +end behav; |