Test suite results for test file webtbs/tw2794.pp

Test run data :

Test file "webtbs/tw2794.pp" information:

t_id 1270
t_adddate 2004/03/04
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 941375.

Source:

{ Source provided for Free Pascal Bug Report 2794 }
{ Submitted by "Johannes Berg" on  2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$ifdef fpc}
  {$THREADING ON}
  {$MODE OBJFPC}
{$endif}  

uses
  {$ifdef fpc}CThreads,{$endif}
  Classes;

type
  TMyThread = class(TThread)
    procedure Execute;override;
  end;

threadvar
  x: ansistring;

procedure TMyThread.Execute;
begin
  x := 'asdf';
  x := x + x;
  writeln(x);
end;

begin
  TMyThread.Create(false).Free;
end.

Link to SVN view of webtbs/tw2794.pp source.