blob: 2cc80027d969d9d1cdc6b86eea93ab765a4f1216 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
entity econcat1 is
end econcat1;
architecture behav of econcat1 is
constant c1 : string (1 to 5) := "hello";
constant c2 : string (6 downto 1) := " world";
constant r : string := c1 & c2;
begin
process
begin
case True is
when c1 & c2 = "hello world" => null;
when false => null;
end case;
assert r'left = 1 severity failure;
assert r'right = 11 severity failure;
wait;
end process;
end;
|