1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/gna/bug017/call10.vhdl b/testsuite/gna/bug017/call10.vhdl
new file mode 100644
index 0000000..a115b05
--- /dev/null
+++ b/testsuite/gna/bug017/call10.vhdl
@@ -0,0 +1,22 @@
+entity call10 is
+end;
+
+architecture behav of call10 is
+  procedure check2 (msg : string) is
+  begin
+     assert msg = "checking: abcedfghijklmnopqrstuvwxyz"
+        severity failure;
+     report "SUCCESS" severity note;
+  end check2;
+  
+  procedure check1 (msg : string) is
+  begin
+    check2 ("checking: " & msg);
+  end check1;
+begin
+   process
+   begin
+      check1 ("abcedfghijklmnopqrstuvwxyz");
+      wait;
+   end process;
+end behav;