From e11660d9afe9e19701a963f9c382b17d89e59d4c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 23 Dec 2016 05:20:46 +0100
Subject: bug017: add more tests

---
 testsuite/gna/bug017/call6b.vhdl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 testsuite/gna/bug017/call6b.vhdl

(limited to 'testsuite/gna/bug017/call6b.vhdl')

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;
-- 
cgit v1.2.3