Add bug017.

1 files changed, 21 insertions, 0 deletions

diff --git a/testsuite/gna/bug017/call6.vhdl b/testsuite/gna/bug017/call6.vhdl
new file mode 100644
index 0000000..c52b08b
--- /dev/null
+++ b/testsuite/gna/bug017/call6.vhdl
@@ -0,0 +1,21 @@
+entity call6 is
+end;
+
+architecture behav of call6 is
+  procedure check (s : string) is
+  begin
+    wait for 1 ns;
+    assert s (2) = 'a';
+  end;
+begin
+  process
+    variable v : integer := 2;
+  begin
+    check ("bac");
+    wait for 2 ns;
+    check ((1 => 'e', 2 => 'a', 3 => 'c'));
+    report "SUCCESS";
+    wait;
+  end process;
+ 
+end behav;