testsuite/gna/issue2103/repro.vhdl


1
2
3
4
5
6
7
8
9
10

package repro is
  function f (arg : bit; length : natural) return bit;
end repro;

package body repro is
  function f (arg : bit; length : positive) return bit is
  begin
    return arg;
  end;
end repro;