More tests for unbounded records.

1 files changed, 18 insertions, 0 deletions

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;