t_id
718
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-pg
Record count: 50
Total = 50
OK=24 Percentage= 48.00
Skipped=12 Percentage= 24.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.