Test suite results for test file test/tobject3.pp

Test run data :

Test file "test/tobject3.pp" information:

t_id 66
t_adddate 2003/10/03
t_result 219
t_knownrunerror 0
t_opts -CR

Detailed test run results:

Record count: 1

No log of 860205.

Source:

{%RESULT=219 }
{ %OPT= -CR }
program test_object;


type
  pobj1 = ^tobj1;
  tobj1 = object
    constructor init;
    procedure mymethod; virtual;
  end;



  pobj2 = ^tobj2;
  tobj2 = object
    constructor init;
    procedure mymethod; virtual;
  end;


  constructor tobj2.init;
   begin
   end;

  procedure tobj2.mymethod;
   begin
   end;


  constructor tobj1.init;
   begin
   end;

  procedure tobj1.mymethod;
   begin
   end;


var
 _obj1 : pobj1;
 _obj2 : pobj2;
Begin
  _obj1:=new(pobj1,init);
  _obj2:=new(pobj2,init);
  pobj1(_obj2)^.mymethod;
end.

Link to SVN view of test/tobject3.pp source.