t_id
452
t_adddate
2003/10/03
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/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 |
{ Old file: tbs0258.pp } { bugs in small const set extension to large sets OK 0.99.12 (PM) } {$ifdef fpc} {$mode tp} {$endif fpc} program test_set; uses erroru; {$R-} procedure test; var i : longint; j : integer; k : word; l : shortint; m : byte; x : array [1..32] of byte; begin for i:=1 to 32 do x[i]:=$ff; i:=1; if not(i in [1,3,5,8,11,14,15]) then begin writeln('Error in set'); error; end; i:=135; if i in [1,3,5,8,11,14,15] then begin writeln('Error : 135 is in [1,3,5,8,11,14,15]'); error; end; i:=257; if not(i in [1,3,5,8,11,14,15]) then begin writeln('Error : 257 isn''t in [1,3,5,8,11,14,15]'); error; end; l:=-1; if not(l in [1,3,5,8,11,14,15,255]) then begin writeln('Error : -1 isn''t in [1,3,5,8,11,14,15,255]'); error; end; i:=257; if not(l in [1,3,5,8,11,14,15,255]) then begin writeln('Error : longint(257) isn''t in [1,3,5,8,11,14,15,255]'); error; end; for i:=1 to 32 do x[i]:=0; i:=135; if i in [1,3,5,8,11,14,15] then begin writeln('Second try Error : 135 is in [1,3,5,8,11,14,15]'); error; end; end; begin test; end.