Test suite results for test file tbs/tb0285.pp

Test run data :

Test file "tbs/tb0285.pp" information:

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

Detailed test run results:

Record count: 1

No log of 942250.

Source:

{ Old file: tbs0337.pp }
{  }

program vartest;

{$ifdef fpc}{$mode objfpc}{$endif}

uses
  Classes;

type
  TMyComponent = class(TComponent)
    aaaaaaaaaa: TComponent;
    b: TComponent;
  private
  public
    constructor Create(AOwner: TComponent); override;
  end;


constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  aaaaaaaaaa := TComponent.Create(Self);
end;

var
  MyComponent: TMyComponent;

begin
  MyComponent := TMyComponent.Create(nil);
end.

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