Import vests testsuite

1 files changed, 18 insertions, 0 deletions

diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/simple-out-parameter.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/simple-out-parameter.vhdl
new file mode 100644
index 000000000..7131e4513
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/simple-out-parameter.vhdl
@@ -0,0 +1,18 @@
+entity test is
+end test;
+
+architecture only of test is
+  procedure out_param ( one : out integer ) is
+  begin
+    one := 1;
+  end out_param;
+begin  -- only
+  doit: process
+    variable one : integer := 0;
+  begin  -- process doit
+    out_param( one );
+    assert one = 1 report "TEST FAILED" severity failure;
+    report "TEST PASSED";
+    wait;
+  end process doit;
+end only;