tests/tbs/tb0198.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ Old file: tbs0234.pp }
{ New with void pointer                                OK 0.99.11 (PM) }

program bug0232;

{$mode tp}

var p:pointer;

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