t_id
279
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266142 | 1015553 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0023.pp } { tests handling of self pointer in nested methods OK 0.9.3 } type tobject = object a : longint; procedure t1; procedure t2;virtual; constructor init; end; procedure tobject.t1; procedure nested1; begin writeln; a:=1; end; begin end; procedure tobject.t2; procedure nested1; begin writeln; a:=1; end; begin end; constructor tobject.init; procedure nested1; begin writeln; a:=1; end; begin end; begin end.