bug017: add more tests

1 files changed, 23 insertions, 0 deletions

diff --git a/testsuite/gna/bug017/call6b.vhdl b/testsuite/gna/bug017/call6b.vhdl
new file mode 100644
index 000000000..ed51e6e7d
--- /dev/null
+++ b/testsuite/gna/bug017/call6b.vhdl
@@ -0,0 +1,23 @@
+entity call6b is
+end;
+
+architecture behav of call6b is
+  type my_rec is record
+    a, b, c : character;
+  end record;
+  
+  procedure check (s : my_rec) is
+  begin
+    wait for 1 ns;
+    assert s.b = 'a';
+  end;
+begin
+  process
+    variable c : character := 'a';
+  begin
+    check ((a => 'e', b => 'a', c => 'c'));
+    report "SUCCESS";
+    wait;
+  end process;
+ 
+end behav;