Test suite results for test file webtbs/tw3564.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

Test file "webtbs/tw3564.pp" information:

t_id 1469
t_adddate 2005/01/26
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Successfully run 50 100.0 2024/05/21 01:22:00 34 2024/05/21 03:13:00 32
i386 12 24.0 2024/05/21 01:22:00 34 2024/05/21 03:02:00 25
x86_64 33 66.0 2024/05/21 01:33:00 15 2024/05/21 03:13:00 32
aarch64 5 10.0 2024/05/21 01:42:00 32 2024/05/21 03:08:00 37
linux 46 92.0 2024/05/21 01:22:00 34 2024/05/21 03:10:00 16
win32 1 2.0 2024/05/21 03:02:00 25 2024/05/21 03:02:00 25
solaris 3 6.0 2024/05/21 03:08:00 30 2024/05/21 03:13:00 32
3.3.1 30 60.0 2024/05/21 01:33:00 15 2024/05/21 03:13:00 32
3.2.3 20 40.0 2024/05/21 01:22:00 34 2024/05/21 03:04:00 27

Source: 

{ Source provided for Free Pascal Bug Report 3564 }
{ Submitted by "Patrick Dietrich" on  2005-01-17 }
{ e-mail: patrick.dietrich@SPAM.informatik.ME.uni-ulm.NOT.de }

{$mode delphi}

type
   StringArray = array of string;

   TestClass = class(TObject)
   public
      FArr : StringArray;
      function getArr: StringArray;
      function getCopy: StringArray;
      constructor create;
      property arr : StringArray read getArr;
   end;

function TestClass.getArr: StringArray;
begin
   result := self.FArr;
end;

function TestClass.getCopy: StringArray;
begin
   Result := Copy(arr, 0, Length(arr)-1);
end; { getCopy }

constructor TestClass.create;
begin
   setLength( Farr, 3);

   Farr[0] := 'one';
   Farr[1] := 'two';
   Farr[2] := 'three';
end;

begin
end.

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