testsuite/gna/issue2103/repro2.vhdl


1
2
3
4
5
6
7
8
9
10

package repro2 is
  function f (arg : bit; length : string) return bit;
end repro2;

package body repro2 is
  function f (arg : bit; length : bit_vector) return bit is
  begin
    return arg;
  end;
end repro2;