testsuite/gna/issue99/bug2.vhdl


1
2
3
4
5
6
7
8

package bug2 is
  generic ( gen: natural );
  constant test: natural:=gen;

  function get_val return natural;
end package;

package mygbug2 is new work.bug2 generic map ( gen => 17 );