From 5f6dfc4373418815637a1fa3de15a2d3b025b0ff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 17 Feb 2017 06:56:12 +0100
Subject: More tests for unbounded records.

---
 testsuite/gna/issue238/call2.vhdl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 testsuite/gna/issue238/call2.vhdl

(limited to 'testsuite/gna/issue238/call2.vhdl')

diff --git a/testsuite/gna/issue238/call2.vhdl b/testsuite/gna/issue238/call2.vhdl
new file mode 100644
index 000000000..d5bad46cb
--- /dev/null
+++ b/testsuite/gna/issue238/call2.vhdl
@@ -0,0 +1,18 @@
+entity call2 is
+end;
+
+use work.pkg.all;
+
+architecture behav of call2 is
+  function func return rec is
+    variable res : rec_4;
+  begin
+    return res;
+  end func;
+begin
+  process
+   constant v : rec := func;
+  begin
+   wait;
+  end process;
+end behav;
-- 
cgit v1.2.3