testsuite/gna/bug0100/procinter.vhdl


1
2
3
4
5
6
7
8
9
10

entity procinter is
end;

architecture arch of procinter is
  procedure proc (procedure proc2 (v : natural)) is
  begin
    null;
  end proc;
begin
end arch;