Test suite results for test file test/tclass3.pp

Test run data :

Test file "test/tclass3.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934965.

Source:

{$ifdef fpc}
   {$mode delphi}
{$endif}
type
  TMyComponent = class
  public
    constructor Create(k1:longint;k2: shortstring);
    destructor Destroy;override;
  end;

  TMyComponent1 = class(TMyComponent)
  public
    constructor Create(l1:longint;l2:shortstring);
  end;

constructor TMyComponent.Create(k1:longint;k2:shortstring);
begin
end;

destructor TMyComponent.Destroy;
begin
end;

constructor TMyComponent1.Create(l1:longint;l2:shortstring);
begin
  inherited;
end;

begin
end.

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