t_id
548
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-Or
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 |
{ %VERSION=1.1 } { %OPT=-Or } { test for full boolean eval and register usage with b+ } {$b+} var funcscalled: byte; ok: boolean; function function1: boolean; begin writeln('function1 called!'); inc(funcscalled); function1 := false; end; function function2: boolean; begin writeln('function2 called!'); inc(funcscalled); function2 := false; end; function function3: boolean; begin writeln('function3 called!'); inc(funcscalled); function3 := false; end; function function4: boolean; begin writeln('function4 called!'); inc(funcscalled); function4 := false; end; function test2: boolean; var j, k, l, m: longint; begin test2 := true; m := 0; { get as much regvars occupied as possible } for j := 1 to 1000 do for k := 1 to 1000 do for l := k downto 0 do inc(m,j - k + l); if (j = 5) and (k = 0) and (l = 100) and function1 then begin test2 := false; writeln('bug'); end; end; begin ok := true; funcscalled := 0; if function1 and function2 and function3 and function4 then begin writeln('bug!'); end; ok := funcscalled = 4; if ok then writeln('all functions called!') else writeln('not all functions called'); ok := test2 and (funcscalled = 5); if ok then writeln('test2 passed') else writeln('test2 not passed'); if not ok then begin writeln('full boolean evaluation is not working!'); halt(1); end; end.