Test suite results for test file webtbs/tw2865.pp

Test run data :

Test file "webtbs/tw2865.pp" information:

t_id 1225
t_version 1.1
t_adddate 2004/01/07
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015615.

Source:

{ %version=1.1 }
{$mode objfpc}
{ Source provided for Free Pascal Bug Report 2865 }
{ Submitted by "Eric Grange" on  2003-12-30 }
{ e-mail: egrange@glscene.org }
unit tw2865;

interface

uses Classes;

type
   TVector = array [0..3] of Single;

   TGLUpdateAbleObject = class (TPersistent)
   end;

   TGLCoordinates = class (TGLUpdateAbleObject)
      private
	 { Private Declarations }
         FCoords : TVector;

      published
         { Published Declarations }
         property X : Single index 0 read FCoords[0];
   end;

implementation

end.

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