Test suite results for test file tbs/tb0306.pp

Test run data :

Test file "tbs/tb0306.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940520.

Source:

{$mode objfpc}

type
   tobject2 = class
      constructor create;
      function rname : string;
      procedure wname(const s : string);
      property name : string read rname write wname;
   end;

   tclass2 = class of tobject2;

var
   o2 : tobject2;
   c2 : tclass2;

constructor tobject2.create;

  begin
     inherited create;
  end;

procedure tobject2.wname(const s : string);

  begin
  end;

function tobject2.rname : string;

  begin
  end;

begin
   o2:=tobject2.create;
   o2.name:='1234';
   writeln(o2.name);
   o2.destroy;
   c2:=tobject2;
   o2:=c2.create;
   o2.destroy;
end.

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