t_id
1092
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Success, compilation failed | 50 | 100.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:40:00 43 | |
i386 | 38 | 76.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:40:00 43 | |
x86_64 | 8 | 16.0 | 2024/05/18 01:24:00 26 | 2024/05/18 01:39:00 15 | |
powerpc64 | 2 | 4.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:11:00 108 | |
aarch64 | 2 | 4.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:35:00 32 | |
linux | 50 | 100.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:40:00 43 | |
3.3.1 | 28 | 56.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:40:00 43 | |
3.2.3 | 22 | 44.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:39:00 26 |
{ %fail } Type pBug=^tBug; tBug=Object Private A:Longint; Go:Procedure Of Object; Procedure Go1; Public Constructor Init; End; Constructor tBug.Init; Begin A:=10; Go:=Go1; { <-- It's wring, it should } { be Go:=@Go1; but compiler } { says it's ok, and the program} { even runs... } End; Procedure tBug.Go1; Begin WriteLn(A); End; Var Bug:pBug; Begin Bug:=New(pBug,Init); Bug^.Go; End.