testsuite/vests/vhdl-93/clifton-labs/compliant/functional/aggregates/simple-integer-aggregate.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

entity test is
end test;

architecture only of test is
  type integer_array is array (0 to 2) of integer;
begin  -- only
  p: process
    variable x : integer_array;
  begin  -- process p
    x := (0, 1, 2);
    assert x(0) = 0 report "TEST FAILED - 0" severity FAILURE;
    assert x(1) = 1 report "TEST FAILED - 1" severity FAILURE;  
    assert x(2) = 2 report "TEST FAILED - 2" severity FAILURE;
    report "TEST PASSED" severity NOTE;
    wait;
  end process p;
end only;