testsuite/gna/bug044/aggr1.vhdl


1
2
3
4
5
6
7
8
9
10
11

entity aggr1 is
end aggr1;

architecture behav of aggr1 is
  procedure proc (b, c : out bit_vector) is
  begin
    b := (others => '0');
    c := ('1', others => '0');
  end proc;
begin
end behav;