t_id
402
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/21 02:20:00 23 | 2024/05/21 04:32:00 54 | |
i386 | 5 | 10.0 | 2024/05/21 02:38:00 25 | 2024/05/21 04:13:00 54 | |
m68k | 1 | 2.0 | 2024/05/21 04:00:00 53 | 2024/05/21 04:00:00 53 | |
powerpc | 1 | 2.0 | 2024/05/21 04:15:00 238 | 2024/05/21 04:15:00 238 | |
x86_64 | 34 | 68.0 | 2024/05/21 02:20:00 23 | 2024/05/21 04:31:00 27 | |
powerpc64 | 2 | 4.0 | 2024/05/21 04:24:00 57 | 2024/05/21 04:32:00 54 | |
mipsel | 1 | 2.0 | 2024/05/21 04:11:00 185 | 2024/05/21 04:11:00 185 | |
aarch64 | 6 | 12.0 | 2024/05/21 02:25:00 38 | 2024/05/21 03:50:00 37 | |
linux | 38 | 76.0 | 2024/05/21 02:20:00 23 | 2024/05/21 04:32:00 54 | |
win32 | 1 | 2.0 | 2024/05/21 03:02:00 25 | 2024/05/21 03:02:00 25 | |
go32v2 | 1 | 2.0 | 2024/05/21 04:13:00 54 | 2024/05/21 04:13:00 54 | |
solaris | 10 | 20.0 | 2024/05/21 03:08:00 30 | 2024/05/21 03:35:00 27 | |
3.3.1 | 35 | 70.0 | 2024/05/21 02:20:00 23 | 2024/05/21 04:24:00 57 | |
3.2.3 | 15 | 30.0 | 2024/05/21 02:35:00 35 | 2024/05/21 04:32:00 54 |
{ Old file: tbs0194.pp } { @procedure var returns value in it instead of address !! OK 0.99.11 (PM) } {$Q+} type tproc = function : longint; var f : tproc; fa : array [0..1] of tproc; function dummy : longint; begin dummy:=25; end; const prog_has_errors : boolean = false; procedure Wrong(const s : string); begin writeln(s); prog_has_errors:=True; end; Begin f:=@dummy; if f()<>25 then Wrong('f() does not call dummy !!'); if pointer(@f)=pointer(@dummy) then Wrong('@f returns value of f !'); if longint(f)=longint(@f) then Wrong('longint(@f)=longint(f) !!!!'); if f<>@dummy then Wrong('f does not return the address of dummy'); if longint(@f)=longint(@dummy) then Wrong('longint(@f) returns address of dummy instead of address of f'); fa[0]:=@dummy; if longint(@f)=longint(@fa[0]) then Wrong('arrays of procvar also wrong'); if longint(f)<>longint(fa[0]) then Wrong('arrays of procvar and procvars are handled differently !!'); if prog_has_errors then Halt(1); End.