t_id
1447
t_adddate
2005/01/12
t_result
0
t_knownrunerror
0
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/16 22:06:00 76 | 2024/05/17 00:25:00 23 | |
i386 | 18 | 36.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
sparc | 18 | 36.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
powerpc | 1 | 2.0 | 2024/05/16 22:06:00 76 | 2024/05/16 22:06:00 76 | |
x86_64 | 12 | 24.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:25:00 23 | |
aarch64 | 1 | 2.0 | 2024/05/17 00:12:00 32 | 2024/05/17 00:12:00 32 | |
linux | 4 | 8.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:12:00 32 | |
win32 | 4 | 8.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
solaris | 41 | 82.0 | 2024/05/16 22:26:00 31 | 2024/05/16 23:55:00 41 | |
win64 | 1 | 2.0 | 2024/05/17 00:25:00 23 | 2024/05/17 00:25:00 23 | |
3.3.1 | 27 | 54.0 | 2024/05/16 22:08:00 35 | 2024/05/17 00:12:00 32 | |
3.2.3 | 23 | 46.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:25:00 23 |
{$MODE MACPAS} {Tests of mac pascal constructs} program tmacpas2; var success: Boolean = true; procedure Proc; begin {** Exit with proc name as argument **} Exit(Proc); end; const a = true; b = true; c = false; var p: pointer; l,i: longint; begin {** Test & and | as alias for AND and OR **} if not (a & b) then success:= false; if not (c | b) then success:= false; {** Test that Ord() can take pointer values **} p:= pointer(4711); l:= Ord(p); if l <> 4711 then success:= false; i:= 0; while true do begin i:= i+1; if i = 1 then Cycle; Leave; end; if i<> 2 then success:= false; if success then Writeln('Whole test succeded') else begin Writeln('Whole test failed'); halt(1); end; end.