t_id
62
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=48 Percentage= 96.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Failed to run | 2 | 4.0 | 2024/09/26 20:30:00 68 | 2024/09/26 20:38:00 84 | |
powerpc | 2 | 100.0 | 2024/09/26 20:30:00 68 | 2024/09/26 20:38:00 84 | |
linux | 2 | 100.0 | 2024/09/26 20:30:00 68 | 2024/09/26 20:38:00 84 | |
3.3.1 | 2 | 100.0 | 2024/09/26 20:30:00 68 | 2024/09/26 20:38:00 84 | |
Successfully run | 48 | 96.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.3 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 12 | 25.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 35.4 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.6 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.7 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 37 | 77.1 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.3 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.6 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 32 | 66.7 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 33.3 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
const err: boolean = false; var a, b: array[0..512] of byte; procedure test_forward_move; var i, j, k: longint; l: longint; begin for i := 0 to 512 do begin a[i] := byte(i); b[i] := 0; end; for i := 0 to 256 do for j := 0 to 31 do for k := 0 to 31 do begin move(a[j],b[k+4],i); { check whether we didn't write a byte too early } for l := 0 to k+3 do begin if b[l] <> 0 then begin writeln('Forward test error 1'); err := true; halt(1); end; b[l] := 0; end; { check whether the actual values were copied correctly } for l := k+4 to k+i+3 do begin if b[l] <> a[j+l-(k+4)] then begin writeln('Forward test error 2'); err := true; halt(1); end; b[l] := 0; end; { check whether we didn't write past the end } for l := k+i+4 to 512 do begin if b[l] <> 0 then begin writeln('Forward test error 3'); err := true; halt(1); end; b[l] := 0; end; end; end; procedure test_backward_move; var i, j, k: longint; l: longint; begin for i := 0 to 128 do begin for j := 0 to 31 do for k := 0 to 31 do begin for l := 0 to 255 do begin a[l] := l; end; move(a[127-j],a[127-j-k],i); { check whether we didn't write a byte too early } for l := 0 to 127-j-k-1 do begin if a[l] <> l then begin writeln('Backward test error 1'); err := true; halt(1); end; end; { check whether the actual values were copied correctly } for l := 127-j-k to 127-j-k+i-1 do begin if a[l] <> l+k then begin writeln('Backward test error 2'); err := true; halt(1); end; end; { check whether we didn't write past the end } for l := 127-j-k+i to 255 do begin if a[l] <> l then begin writeln('Backward test error 3'); err := true; halt(1); end; end; end; end; end; begin test_forward_move; test_backward_move; if err then halt(1); end.