t_id
1151
t_adddate
2003/10/22
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022851314 | 1027398 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2473 } { Submitted by "julien" on 2003-04-25 } { e-mail: jfiiz@aol.com } function afunc (line : ansistring; var i : qword) : qword; begin if (i>length(line[i])) then writeln('hello'); afunc:=0; end; begin end.