diff options
Diffstat (limited to 'testsuite/vests/vhdl-93/clifton-labs/compliant/functional/packages/simple_package_body_test.vhdl')
-rw-r--r-- | testsuite/vests/vhdl-93/clifton-labs/compliant/functional/packages/simple_package_body_test.vhdl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/packages/simple_package_body_test.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/packages/simple_package_body_test.vhdl new file mode 100644 index 000000000..205cb359a --- /dev/null +++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/packages/simple_package_body_test.vhdl @@ -0,0 +1,28 @@ +package test_pkg is + function return_one + return integer; +end test_pkg; + +package body test_pkg is + function return_one + return integer is + begin -- return_one + return 1; + end return_one; +end test_pkg; + + +use work.test_pkg.all; + +entity test is +end test; + +architecture only of test is +begin -- only + p: process + begin -- process p + assert ( return_one = 1 ) report "TEST FAILED" severity FAILURE; + report "TEST PASSED" severity NOTE; + wait; + end process p; +end only; |