testsuite/gna/issue107/testpkg.vhdl


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

package TestPkg is

  generic (
    G_TEST  : positive := 8
  ); 
end package TestPkg;


package body TestPkg is

  procedure TestReport is
  begin
    report "G_TEST :" & to_string(G_TEST);
  end procedure;

end package body;