t_id
718
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-pg
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523600821 | 947880 | True | False | Successfully run |
Record count: 1
{ %OPT=-pg } program test1; var i,j:longint; l : longint; a,b:double; procedure test; begin b:=1.0; i:=2; a:=b+3; j:=i div 2; end; procedure test2; begin test; Writeln('i=',i,' l=',l); end; begin for l:=1 to 10000 do begin test; test2; test; end; end.