Test suite results for test file webtbs/tw0793.pp

Test run data :

Test file "webtbs/tw0793.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$MODE Delphi}

program bug;
type

TMyObject = class
  public
    constructor Create; virtual;
    constructor Init;
end;

var
  M: TMyObject;


constructor TMyObject.Create;
begin
  Writeln('Now executing  TmyObject.Create');
end;

constructor TMyObject.Init;
begin
  Create;
  Writeln('Now finishing the INIT constructor.');
end;

begin
  M := TMyObject.Init;
end.

Link to SVN view of webtbs/tw0793.pp source.