Test suite results for test file tbs/tb0298.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 "tbs/tb0298.pp" information:

t_id 520
t_adddate 2003/10/03
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/20 10:48:00 38 2024/05/20 22:58:00 148
i386 13 26.0 2024/05/20 16:23:00 44 2024/05/20 22:37:00 176
m68k 1 2.0 2024/05/20 22:44:00 190 2024/05/20 22:44:00 190
arm 1 2.0 2024/05/20 22:30:00 59 2024/05/20 22:30:00 59
x86_64 13 26.0 2024/05/20 13:38:00 23 2024/05/20 19:35:00 26
mips 3 6.0 2024/05/20 12:35:00 35 2024/05/20 22:51:00 240
mipsel 1 2.0 2024/05/20 22:58:00 148 2024/05/20 22:58:00 148
aarch64 18 36.0 2024/05/20 10:48:00 38 2024/05/20 22:24:00 44
linux 13 26.0 2024/05/20 10:48:00 38 2024/05/20 22:58:00 148
solaris 12 24.0 2024/05/20 16:23:00 44 2024/05/20 17:30:00 45
darwin 12 24.0 2024/05/20 16:20:00 32 2024/05/20 17:50:00 56
win64 13 26.0 2024/05/20 13:38:00 23 2024/05/20 19:35:00 26
3.3.1 8 16.0 2024/05/20 12:35:00 35 2024/05/20 19:35:00 26
3.2.2 12 24.0 2024/05/20 16:23:00 44 2024/05/20 17:30:00 45
3.2.3 30 60.0 2024/05/20 10:48:00 38 2024/05/20 22:58:00 148

Source: 

{$mode objfpc}
type
   tobject1 = class
      readl : longint;
      function readl2 : longint;
      procedure writel(ll : longint);
      procedure writel2(ll : longint);
      property l : longint read readl write writel;
      property l2 : longint read readl2 write writel2;
   end;

procedure tobject1.writel(ll : longint);

  begin
  end;

procedure tobject1.writel2(ll : longint);

  begin
  end;

function tobject1.readl2 : longint;

  begin
  end;

var
   object1 : tobject1;
   i : longint;

begin
   object1:=tobject1.create;
   i:=object1.l;
   i:=object1.l2;
   object1.l:=123;
end.

Link to SVN view of tbs/tb0298.pp source.