testsuite/gna/issue1246/pkg_a.vhdl


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

package pkg_A is
        --------------------------------------
	generic (
		A: 	integer := 1
	);
        --------------------------------------
	-- constant A: integer := 1;
        --------------------------------------
	package pkgB is new work.pkg_B
	generic map(
		B => A+1
	);
	procedure showA;
end pkg_A;
package body pkg_A is
	procedure showA is 
		use pkgB.showB;
	begin
		report "A:" & integer'image(A);
		showB;
	end procedure showA;
end package body pkg_A;