1 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/gna/bug017/call7.vhdl b/testsuite/gna/bug017/call7.vhdl
new file mode 100644
index 000000000..54bcd052c
--- /dev/null
+++ b/testsuite/gna/bug017/call7.vhdl
@@ -0,0 +1,25 @@
+entity call7 is
+end;
+
+architecture behav of call7 is
+  procedure check (s : string) is
+  begin
+    wait for 1 ns;
+    assert s (2) = 'a';
+  end;
+  function get_str
+    return string is
+  begin
+    return "xaz";
+  end get_str;
+begin
+  process
+  begin
+    check ("bac");
+    wait for 2 ns;
+    check (get_str);
+    report "SUCCESS" severity note;
+    wait;
+  end process;
+ 
+end behav;