t_id
1092
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949672974 | 1015618 | True | False | Success, compilation failed |
Record count: 1
{ %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.