t_id
63
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=41 Percentage= 82.00
Skipped=4 Percentage= 8.00
{ %version=1.1 } {$mode objfpc} {$threading on} uses sysutils; const threadcount = 100; stringlen = 10000; var finished : longint; threadvar thri : longint; function f(p : pointer) : longint; var s : ansistring; begin writeln('thread ',longint(p),' started'); thri:=0; while (thriLink to SVN view of test/tmt1.pp source.