t_id
63
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022866569 | 1027404 | True | False | Successfully run |
Record count: 1
{ %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.