blob: 9150c27eb2ae4950f05a1d87d2d739765f46ad75 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
package repro3 is
constant a1 : natural := 1;
constant a2 : natural := 1;
function f (arg : bit; length : string (1 to a1)) return bit;
end;
package body repro3 is
function f (arg : bit; length : string (1 to a2)) return bit is
begin
return arg;
end;
end;
|