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

{ %fail }

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

begin
end.