Test suite results for test file test/tmt1.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

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: 50

Total = 50

OK=49 Percentage= 98.00

Result type Cat. Count Percentage First date Last Date
Failed to run 1 2.0 2024/05/21 03:53:00 0 2024/05/21 03:53:00 0
i386 1 100.0 2024/05/21 03:53:00 0 2024/05/21 03:53:00 0
linux 1 100.0 2024/05/21 03:53:00 0 2024/05/21 03:53:00 0
3.3.1 1 100.0 2024/05/21 03:53:00 0 2024/05/21 03:53:00 0
Successfully run 49 98.0 2024/05/21 01:42:00 32 2024/05/21 04:02:00 0
i386 6 12.2 2024/05/21 01:57:00 28 2024/05/21 03:02:00 25
m68k 1 2.0 2024/05/21 04:00:00 0 2024/05/21 04:00:00 0
x86_64 35 71.4 2024/05/21 01:45:00 26 2024/05/21 04:02:00 0
aarch64 7 14.3 2024/05/21 01:42:00 32 2024/05/21 03:50:00 0
linux 38 77.6 2024/05/21 01:42:00 32 2024/05/21 04:02:00 0
win32 1 2.0 2024/05/21 03:02:00 25 2024/05/21 03:02:00 25
solaris 10 20.4 2024/05/21 03:08:00 30 2024/05/21 03:35:00 27
3.3.1 35 71.4 2024/05/21 01:42:00 32 2024/05/21 04:00:00 0
3.2.3 14 28.6 2024/05/21 01:45:00 26 2024/05/21 04:02:00 0

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.