testsuite/gna/bug061/test_dict.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;