Import vests testsuite

1 files changed, 22 insertions, 0 deletions

diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/simple-integer-record.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/simple-integer-record.vhdl
new file mode 100644
index 000000000..b040eb853
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/simple-integer-record.vhdl
@@ -0,0 +1,22 @@
+entity test is
+end test;
+
+architecture only of test is
+begin  -- only
+p: process
+  type integerRecord is record
+                           foo : integer;
+                           bar : integer;
+                         end record;
+  variable myRecord : integerRecord;
+begin  -- process p
+  myRecord.foo := 0;
+  myRecord.bar := 1;    
+
+  assert myRecord.foo = 0 report "TEST FAILED" severity FAILURE;
+  assert myRecord.bar = 1 report "TEST FAILED" severity FAILURE;
+  report "TEST PASSED" severity NOTE;
+  
+  wait;
+end process p;
+end only;