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

t_id 885
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=5 Percentage= 10.00

Skipped=45 Percentage= 90.00

Result type Cat. Count Percentage First date Last Date
Successfully run 5 10.0 2024/05/08 10:33:00 43 2024/05/08 11:10:00 236
i386 5 100.0 2024/05/08 10:33:00 43 2024/05/08 11:10:00 236
linux 4 80.0 2024/05/08 10:33:00 43 2024/05/08 11:10:00 236
win32 1 20.0 2024/05/08 10:53:00 35 2024/05/08 10:53:00 35
3.3.1 3 60.0 2024/05/08 10:58:00 42 2024/05/08 11:10:00 236
3.2.3 2 40.0 2024/05/08 10:33:00 43 2024/05/08 10:53:00 35
Skipping test because for other cpu 45 90.0 2024/05/08 10:05:00 33 2024/05/08 11:32:00 246
m68k 3 6.7 2024/05/08 10:41:00 60 2024/05/08 11:12:00 58
powerpc 10 22.2 2024/05/08 10:55:00 44 2024/05/08 11:32:00 246
arm 3 6.7 2024/05/08 10:23:00 59 2024/05/08 11:06:00 37
x86_64 4 8.9 2024/05/08 10:05:00 33 2024/05/08 10:46:00 27
powerpc64 8 17.8 2024/05/08 10:17:00 71 2024/05/08 11:32:00 57
mips 4 8.9 2024/05/08 10:51:00 48 2024/05/08 11:23:00 241
mipsel 4 8.9 2024/05/08 11:01:00 39 2024/05/08 11:28:00 47
aarch64 7 15.6 2024/05/08 10:21:00 38 2024/05/08 11:09:00 39
loongarch64 2 4.4 2024/05/08 11:06:00 38 2024/05/08 11:15:00 34
linux 44 97.8 2024/05/08 10:05:00 33 2024/05/08 11:32:00 246
aix 1 2.2 2024/05/08 10:38:00 79 2024/05/08 10:38:00 79
3.3.1 19 42.2 2024/05/08 10:05:00 33 2024/05/08 11:32:00 246
3.2.3 26 57.8 2024/05/08 10:17:00 36 2024/05/08 11:31:00 44

Source:

{$ifdef fpc}{$mode delphi}{$endif}

uses SysUtils;

type TTest = record
              a, b: integer;
             end;

procedure Test(const T: TTest);
 begin
  if @T = nil then exit;
  // do something
 end;

begin
 Test(TTest(nil^));          {case 1}
 Test(TTest(Pointer(nil)^)); {case 2}
end.

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