t_id
769
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 01:52:00 20 | 2024/05/21 02:26:00 0 | |
i386 | 16 | 32.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 0 | |
x86_64 | 32 | 64.0 | 2024/05/21 01:53:00 15 | 2024/05/21 02:25:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
linux | 49 | 98.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 0 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 29 | 58.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 0 | |
3.2.3 | 21 | 42.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:25:00 0 |
TYPE PObj = ^TObj; TObj = OBJECT ii : INTEGER; CONSTRUCTOR Init(i :INTEGER); DESTRUCTOR Done; END; CONSTRUCTOR TObj.Init(i :INTEGER); BEGIN ii := i; END; DESTRUCTOR TObj.Done; BEGIN END; VAR Obj : ARRAY[1..2] OF TObj; BEGIN Obj[1].Init(10); WITH Obj[2] DO Init(Obj[1].ii + 1); (* equal Init(0+1) = wrong *) Writeln; Writeln(Obj[1].ii:10); Writeln(Obj[2].ii:10); if Obj[2].ii<>11 then halt(1); (* this should report 10 and 11, when ok *) END.