Test suite results for test file test/tmt1.pp

Test run data :

Test file "test/tmt1.pp" information:

t_id 63
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940426.

Source:

{ %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 (thri
Link to SVN view of  test/tmt1.pp source.