testsuite/gna/issue1704/repro2.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

entity repro2 is
  generic (
     word_len : natural := 20);
end;

architecture behav of repro2 is
  subtype word is bit_vector(word_len - 1 downto 0);
  
  function F return word is
  begin
    return ("1010","101010101010", others => '0');
  end function;
begin
  assert f = b"1010_101010101010_0000" severity failure;
  process
  begin
    report to_string(f);
    wait;
  end process;
end;