aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug0105/econcat2.vhdl
blob: 8c343d2c478c830696bd9d112fdce53f5fa920f5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
entity econcat2 is
end econcat2;

architecture behav of econcat2 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;
    wait;
  end process;
end;