1entity bounds13 is
2end entity;
3
4architecture test of bounds13 is
5begin
6
7 process is
8 type myint is range 1 to 3;
9 begin
10 assert myint'value(" 3 ") = 3;
11 assert myint'value("4") = 1 or true; -- Error
12 wait;
13 end process;
14
15end architecture;
16