testsuite/gna/issue2346/aggr3.vhdl


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

entity aggr3 is
end;

architecture test of aggr3 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
    wait for 1 ns;
    o <= f after tpd;
  end asgn;
begin
  process
  begin
    asgn (o (1) => A1, o(0) => A0);
    wait for 1 ns;
    assert a1 = '1';
    assert a0 = '0';
    report "done";
    wait;
  end process;
end;