path: root/tests/webtbf/tw32412c.pp

{ %FAIL }

program tw32412c;

var
  p: Pointer;
begin
  Delete(p, 1, 2, 3);
end.