Test suite results for test file tbs/tb0125.pp

Test run data :

Test file "tbs/tb0125.pp" information:

t_id 370
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0144.pp }
{ problem with 'with object do'                         OK 0.99.7 (PFV) }

program done_bug;

type
TObject = object
  Constructor Init;
  Destructor Done;
end;
PObject = ^TObject;

Constructor TObject.Init;
begin end;
Destructor TObject.Done;
begin end;

var P:PObject;

begin
New(P,Init);
with P^ do Done; { Compiler PANIC here ! }
Dispose(P);
end.

Link to SVN view of tbs/tb0125.pp source.