testsuite/gna/issue1246/pkg_b.vhdl


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;