testsuite/gna/bug066/repro.vhdl


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

package foo is
  procedure bar (signal a, b : in bit; signal c : out bit);
  procedure bar (signal a, b, c : in bit; signal d : out bit);
end package foo;

package body foo is
  procedure bar (signal a, b : in bit; signal c : out bit) is
  begin
    c <= a xor b;
  end procedure bar;

  procedure bar (signal a, b, c : in bit; signal d : out bit)
  is
  begin
    d <= a xor b xor c;
  end procedure bar;
end package body foo;