aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/ticket49/bug.vhdl
blob: 45f66c3656a93c8a6fd6c0932b84ce14b0f78817 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
entity ent is
end entity;

architecture a of ent is
  procedure set(x : integer; value : integer := 0) is
  begin
  end procedure;

  procedure set(x : integer; y : integer; value : integer := 0) is
  begin
  end procedure;

  procedure set(x : integer; y : integer; z : integer; value : integer := 0) is
  begin
  end procedure;
begin
  main : process
  begin
    set(0, value => 1); -- Works
    set(0, 1, value => 1); -- Does not work
  end process;
end architecture;