Test suite results for test file webtbs/tw3506.pp

Test run data :

Test file "webtbs/tw3506.pp" information:

t_id 1436
t_adddate 2005/01/06
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 750450.

Source:

{ Source provided for Free Pascal Bug Report 3506 }
{ Submitted by "Frank Kintrup" on  2005-01-04 }
{ e-mail: frank.kintrup@gmx.de }
{$MODE Delphi}

type
  TEnumType = (enum0, enum1, enum2);

type
  TTestClass = class (TObject)
  private
    function GetPropValue(
      nIndex : TEnumType) : Integer;

  public
    property Prop0 : Integer index enum0
      read GetPropValue;
  end;

function TTestClass.GetPropValue(
  nIndex : TEnumType) : Integer;
begin
  Result := Integer(nIndex);
end;

begin
end.

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