aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/synth/gen01/pkg02.vhdl
blob: 326246d8fac7cf6d804ae57c1301800efda0e4e6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
package gen is
  generic (val : integer);

  function get_val (x : integer) return integer;
end;

package body gen is
  function get_val (x : integer) return integer is
  begin
    return val + x;
  end get_val;
end;

package inst1 is new work.gen generic map (val => 3);

entity pkg02 is
  port (i : in integer;
        o : out integer);
end pkg02;

architecture behav of pkg02 is
  use work.inst1.all;
begin
  o <= get_val (i);
end behav;