testsuite/gna/bug081/test_comp.vhdl


1
2
3
4
5
6
7
8

package test_comp is
  function log2 (v : natural) return natural;

  component my_comp is
    generic (max : natural);
    port (o : out bit_vector(log2(max) - 1 downto 0));
  end component;
end test_comp;