1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/gna/bug017/call5.vhdl b/testsuite/gna/bug017/call5.vhdl
new file mode 100644
index 000000000..b5c372a2a
--- /dev/null
+++ b/testsuite/gna/bug017/call5.vhdl
@@ -0,0 +1,21 @@
+entity call5 is
+end;
+
+architecture behav of call5 is
+  procedure inc (p : inout integer) is
+  begin
+    wait for 1 ns;
+    p := p + 1;
+  end inc;
+begin
+  process
+    variable v : integer := 2;
+  begin
+    inc (v);
+    wait for 2 ns;
+    inc (v);
+    assert not (v = 4) report "SUCCESS";
+    wait;
+  end process;
+ 
+end behav;