testsuite/gna/bug0100/proctarg.vhdl


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

entity proctarg is
end proctarg;

architecture behav of proctarg is
  procedure proc (n : natural) is
  begin
    proc := true;
  end proc;

  procedure proc (n : boolean) is
  begin
    proc <= true;
  end proc;
begin
end;