Test suite results for test file webtbf/tw3480.pp

Test run data :

Test file "webtbf/tw3480.pp" information:

t_id 1427
t_adddate 2004/12/27
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 750246.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 3480 }
{ Submitted by "Danny Milosavljevic" on  2004-12-26 }
{ e-mail: danny_milo@yahoo.com }
program z;

{$ifdef fpc}{$mode delphi}{$endif}

type
  IBla = interface
  function X: Boolean;
  end;

  TBla = class(TInterfacedObject, IBla, IInterface)
  public
  class function X: Boolean;
  end;

class function TBLA.X: Boolean;
begin
  
end;

begin
  TBla.X;
end.

Link to SVN view of webtbf/tw3480.pp source.