Test suite results for test file webtbf/tw1642.pp

Test run data :

Test file "webtbf/tw1642.pp" information:

t_id 1096
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015615.

Source:

{ %FAIL }
program TestDefaultProperty;

{$MODE OBJFPC}{$H+}

uses
  SysUtils;

type
  TMyClass = class
  private
    function GetItems(Index: integer): integer;
  public
    property Items[Index: integer]: integer read GetItems; default;
  end;

function TMyClass.GetItems(Index: integer): integer;
begin
  writeln('Get Index=',Index);
  Result:=Index;
end;

var MyClass: TMyClass;
  i: integer;

begin
  MyClass:=TMyClass.Create;
  i:=MyClass.Items;
  writeln('i=',i);
  MyClass.Free;
end.

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