t_id
18
t_adddate
2003/10/03
t_result
210
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/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %RESULT=210 } {$R+} {$mode objfpc} program test_fail; type parrayobj = ^tarraycla; tarraycla = class ar : array [1..4] of real; constructor create(do_fail : boolean); procedure test;virtual; destructor done;virtual; end; pbigarrayobj = ^tbigarraycla; tbigarraycla = class(tarraycla) ar2 : array [1..10000] of real; constructor good_init; constructor wrong_init; procedure test;virtual; end; var ta1, ta2 : tarraycla; availmem : longint; constructor tarraycla.create(do_fail : boolean); begin ar[1]:=1; if do_fail then fail; ar[2]:=2; end; destructor tarraycla.done; begin end; procedure tarraycla.test; begin if ar[1]=1 then Writeln('Init called'); if ar[2]=2 then Writeln('Init successful'); end; constructor tbigarraycla.good_init; begin inherited create(false); Writeln('End of tbigarraycla.good_init'); end; constructor tbigarraycla.wrong_init; begin inherited create(true); Writeln('End of tbigarraycla.wrong_init'); end; procedure tbigarraycla.test; begin Writeln('tbigarraycla.test called'); Inherited test; end; begin availmem:=memavail; ta1:=tarraycla.create(false); writeln('Call to ta1.test after successful init'); ta1.test; ta2:=tarraycla.create(true); writeln('ta2 = ',longint(ta2),' after unsuccessful init'); Writeln('Trying to call ta2.test (should generate a Run Time Error)'); ta2.test; end.