diff options
Diffstat (limited to 'testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices')
-rw-r--r-- | testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/simple-slice.vhdl | 14 | ||||
-rw-r--r-- | testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/slice-lvalue.vhdl | 15 |
2 files changed, 29 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/simple-slice.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/simple-slice.vhdl new file mode 100644 index 000000000..626fc791d --- /dev/null +++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/simple-slice.vhdl @@ -0,0 +1,14 @@ +entity test is +end test; + +architecture only of test is +begin -- only + doit: process + constant string_constant : string := "foobar"; + begin -- process + assert string_constant( 1 to 3 ) = "foo" report "TEST FAILED" severity FAILURE; + assert string_constant( 4 to 6 ) = "bar" report "TEST FAILED" severity FAILURE; + report "TEST PASSED"; + wait; + end process; +end only; diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/slice-lvalue.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/slice-lvalue.vhdl new file mode 100644 index 000000000..3c5f75043 --- /dev/null +++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/slices/slice-lvalue.vhdl @@ -0,0 +1,15 @@ +entity test is +end test; + +architecture only of test is +begin -- only + doit: process + variable string_var : string( 1 to 6 ); + begin -- process + string_var( 1 to 3 ) := "foo"; + string_var( 4 to 6 ) := "bar"; + assert string_var = "foobar" report "TEST FAILED" severity FAILURE; + report "TEST PASSED"; + wait; + end process; +end only; |