fpc/tests/tbs/tbs0234.pp

program bug0232;

{$mode tp}

var p:pointer;

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