Test suite results for test file webtbs/tw0825.pp

Test run data :

Test file "webtbs/tw0825.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$mode tp}
{ args for destructors
  are allowed in TP mode for compatibility only PM }

program   test_destructor_with_args;

var
  z : longint;

  type
    tt = object
     constructor dummy;
     destructor done(x : longint);virtual;
    end;

  constructor tt.dummy;
    begin
    end;

  destructor tt.done;
    begin
      Writeln('x in tt.done is ',x);
      z:=x;
    end;

  var
    pt : ^tt;

begin
  Writeln('ln(5)=',ln(5));
  new(pt,dummy);
  pt^.done(4);
  if z<>4 then
    Halt(1);
  pt^.dummy;
  dispose(pt,done(5));
  if z<>5 then
    Halt(1);
end.

Link to SVN view of webtbs/tw0825.pp source.