Test suite results for test file webtbs/tw1863.pp

Test run data :

Test file "webtbs/tw1863.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

type
 TObj =   object
  constructor Init0;
  constructor Init;
  procedure   Show;
  function    GetStr:string; virtual;
  destructor  Done;
 end;

 TChild = object (TObj)
   function GetStr:string; virtual;
 end;

var
  Err : boolean;

constructor TObj.Init0;
begin
end;

constructor TObj.Init;
begin
  Init0;
end;

function   TObj.GetStr:string;
begin
  GetStr:='Bad';
  Err:=true;
end;

procedure  TObj.Show;
begin
  writeln(GetStr);
end;

destructor TObj.Done;
begin
end;

function TChild.GetStr:string;
begin
  GetStr:='Good'
end;

var
  Obj:TChild;
begin
 Obj.Init;
 Obj.Show;
 Obj.Done;
 if Err then
  halt(1);
end.

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