testsuite/gna/ticket41/bug.vhdl


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

package pkg is
  procedure proc;
  alias prog_alias is proc[];
end package;

package body pkg is
  procedure proc is
  begin
  end;

  impure function prog_alias return integer is
  begin
    prog_alias;
    return 0;
  end;
end package body;