t_id
718
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-pg
Record count: 50
Total = 50
OK=4 Percentage= 8.00
Skipped=7 Percentage= 14.00
{ %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.