From fa1727c1ce8cf56069e853c780adc39beee8fc71 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 1 Oct 2016 06:52:15 +0200
Subject: Add a test for interface subprograms.
---
testsuite/gna/bug061/test_dict.vhdl | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
create mode 100644 testsuite/gna/bug061/test_dict.vhdl
(limited to 'testsuite/gna/bug061/test_dict.vhdl')
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;
--
cgit v1.2.3