freepascal.compiler/tests/test/units/system/tslice2.pp

{ %fail }

procedure t(arr: array of integer);
begin
  t(slice(arr,'k'));
end;

begin
end.