Test suite results for test file webtbs/tw3470.pp

Test run data :

Test file "webtbs/tw3470.pp" information:

t_id 1421
t_adddate 2004/12/27
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940549.

Source:

{$ifdef fpc}{$mode delphi}{$endif}
uses Variants;

type
  IBla = interface
  end;

  TBla = class(TInterfacedObject, IBla)
  public
    constructor Create;
  end;

constructor TBla.Create;
begin
end;

var
  v: Variant;
  bla: IBla;
begin
  bla := TBla.Create;
  v := bla;
end.

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