testsuite/gna/issue2346/aggr2.vhdl


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

entity aggr2 is
end;

architecture test of aggr2 is
  constant tpd         : time := 1 ns ;
  signal A1, A0  : bit ;
  function f return bit_vector is
  begin
    return "01";
  end f;
  procedure asgn (signal o : out bit_vector) is
  begin
    o <= f after tpd;
  end asgn;
begin
  asgn (o (1) => A1, o(0) => A0);
end;