Test suite results for test file tbs/tb0305.pp

Test run data :

View Test suite results

Test file "tbs/tb0305.pp" information:

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

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{$mode objfpc}

type
   tobject2 = class
      i : longint;
      procedure y;
      constructor create;
      class procedure x;
      class procedure v;virtual;
   end;

  procedure tobject2.y;

    begin
        Writeln('Procedure y called');
    end;

  class procedure tobject2.v;

    begin
    end;

  class procedure tobject2.x;

    begin
       v;
    end;

  constructor tobject2.create;

    begin
    end;

  type
     tclass2 = class of tobject2;

  var
     a : class of tobject2;
     object2 : tobject2;

begin
   a:=tobject2;
   a.x;
   tobject2.x;
   object2:=tobject2.create;
   object2:=a.create;
end.

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