t_id
1270
t_adddate
2004/03/04
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=41 Percentage= 82.00
Skipped=2 Percentage= 4.00
{ 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.