blob: 4cb4e7c04da6cd9d09d658461f6912e9d1cfae0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
entity test is
end test;
architecture only of test is
begin -- only
doit: process
subtype sub_integer is integer range 42 to 69;
constant x : sub_integer;
begin
assert x = sub_integer'left report "TEST FAILED" severity FAILURE;
report "TEST PASSED";
wait;
end process;
end only;
|