1entity test is 2end test; 3 4architecture only of test is 5 type my_type is array(0 to 3) of integer; 6begin -- only 7 p: process 8 begin -- process p 9 assert (my_type'ascending) report "TEST FAILED ascending" severity failure; 10 report "TEST PASSED ascending"; 11 wait; 12 end process p; 13end only; 14