Test suite results for test file webtbf/tw3342.pp

Test run data :

Test file "webtbf/tw3342.pp" information:

t_id 1378
t_adddate 2004/10/12
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934951.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 3342 }
{ Submitted by "Alan Mead" on  2004-10-05 }
{ e-mail: cubrewer@yahoo.com }
{$ifdef fpc}{$MODE Delphi}{$endif}

unit tw3342;

Interface

uses
 Classes;

type
  TAgreementMatrix = class(TObject)
    private
      _Count: Array[1..100,1..100] of Integer;
    public
      constructor Create;
      destructor Destroy; override;
      property Count[Row,Column:Integer]:Integer read _Count[Row,Column] write _Count[Row,Column]; default;
  end;

Implementation

constructor TAgreementMatrix.Create;
begin
  inherited;
end;

destructor TAgreementMatrix.Destroy;
begin
  inherited;
end;

begin
end.

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