1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/integer-record-aggregate-init.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/integer-record-aggregate-init.vhdl
new file mode 100644
index 000000000..dbd517043
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/types/record-types/integer-record-aggregate-init.vhdl
@@ -0,0 +1,21 @@
+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 := ( 0, 1 );
+
+  assert myRecord.foo = 0 report "TEST FAILED - 0" severity FAILURE;
+  assert myRecord.bar = 1 report "TEST FAILED - 1" severity FAILURE;
+  report "TEST PASSED" severity NOTE;
+  
+  wait;
+end process p;
+end only;