program bug0232;

var p:pointer;

begin
     new(p);
     dispose(p);
end.