testsuite/gna/issue791/test.vhdl


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

entity test is
end test;

architecture behav of test is
  procedure proc is
  begin
    null;
  end proc;

  package pkg is new work.generic_pkg
                   generic map (proc);
begin
  process
  begin
    wait;
  end process;
end behav;