testsuite/synth/issue1948/test.vhdl


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

package gen_pkg is
   generic (type T);

   procedure proc;
end gen_pkg;

package body gen_pkg is
    procedure proc is
    begin
        null;
    end proc;
end gen_pkg;

entity test is
end entity test;

architecture simple of test is
   package pkg is new work.gen_pkg generic map (t => integer);
begin
end architecture simple;