aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue1246/pkg_b.vhdl
blob: 30bb6e19ae80a536f66e9c5935b91e6418dbf9d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
package pkg_B is
	generic (
		B: 	integer := 2
	);
	procedure showB;
end pkg_B;
package body pkg_B is
	procedure showB is 
	begin
		report "B:" & integer'image(B);
	end procedure showB;
end package body pkg_B;