aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/ticket41/bug.vhdl
blob: 8c4e4a9caae49131d09a4044b3c251b2ec67e31e (plain)
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;