Test suite results for test file webtbs/tw3796.pp

Test run data :

Test file "webtbs/tw3796.pp" information:

t_id 1533
t_adddate 2005/03/18
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940419.

Source:

{ Source provided for Free Pascal Bug Report 3796 }
{ Submitted by "Antonio Marti" on  2005-03-15 }
{ e-mail: windowze2000@yahoo.es }
{
FAILS WITH: fpc -Mobjfpc test.pp
WHY? IS IT A BUG?
}
unit tw3796;

{$mode objfpc}

interface

uses objects;

type
  PType                 = ^TType;
  TType                 = object(TObject)
    private
      function IsEmpty: Boolean;
    public
      property Empty : Boolean Read IsEmpty;
  end;

implementation

function TType.IsEmpty: Boolean;
begin
  result:=True;
end;

end.

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