freepascal.compiler/tests/webtbf/tw4619a.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 4619 }
{ Submitted by "Christian Iversen" on  2005-12-19 }
{ e-mail: [email protected] }

{$mode delphi}

type
  TStatement = class
  end;

  TBlock = class(TStatement)
  protected
    // The parameter must be Integer instead of LongWord
    function GetStat(const Index: LongWord): TStatement;
  public
    property Statement1: TStatement index 1 read GetStat;
  end;

    function TBlock.GetStat(const Index: LongWord): TStatement;
begin
end;

begin
end.