t_id
14
t_version
1.1
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:28:00 26 | 2024/05/21 02:03:00 0 | |
i386 | 24 | 48.0 | 2024/05/21 01:33:00 43 | 2024/05/21 01:58:00 33 | |
x86_64 | 24 | 48.0 | 2024/05/21 01:28:00 26 | 2024/05/21 02:03:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 01:46:00 38 | 2024/05/21 02:03:00 0 | |
linux | 50 | 100.0 | 2024/05/21 01:28:00 26 | 2024/05/21 02:03:00 0 | |
3.3.1 | 29 | 58.0 | 2024/05/21 01:30:00 14 | 2024/05/21 02:03:00 0 | |
3.2.3 | 21 | 42.0 | 2024/05/21 01:28:00 26 | 2024/05/21 02:01:00 0 |
{ %VERSION=1.1 } {$mode objfpc} type to1 = class constructor create; procedure afterconstruction;override; end; to2 = class(to1) constructor create; procedure afterconstruction;override; end; var i : longint; constructor to1.create; begin writeln('to1.create'); inherited create; if i<>1000 then halt(1); i:=2000; end; constructor to2.create; begin writeln('to2.create'); if i<>3000 then halt(1); i:=1000; inherited create; i:=4000; end; procedure to1.afterconstruction; begin writeln('to1.afterconstruction'); if i<>2000 then halt(1); i:=3000; end; procedure to2.afterconstruction; begin writeln('to2.afterconstruction'); if i<>4000 then halt(1); i:=5000; end; var o1 : to1; o2 : to2; begin i:=1000; o1:=to1.create; o2:=to2.create; if i<>5000 then halt(1); o1.destroy; writeln('ok'); end.