1entity test is
2end test;
3
4architecture only of test is
5 type small is range 1 to 3;
6begin -- only
7p: process
8begin -- process p
9 assert small'right = 3 report "TEST FAILED" severity FAILURE;
10 report "TEST PASSED" severity NOTE;
11 wait;
12end process p;
13end only;
14