testsuite/gna/issue2346/aggr1.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13

entity aggr1 is
end;

architecture test of aggr1 is
  constant tpd         : time := 1 ns ;
  signal A1, A0  : bit ;
  function f return bit_vector is
  begin
    return "010";
  end f;
begin
  (A1, A0) <=  f after tpd; -- to_slv(i, 2) after tpd ;
end;