t_id
281
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
481109019 | 941002 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0025.pp } { tests for a wrong uninit. var. warning OK 0.9.3 } procedure p1; type datetime=record junk : string; end; var dt : datetime; begin fillchar(dt,sizeof(dt),0); end; begin P1; end.