t_id
1270
t_adddate
2004/03/04
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022577109 | 1027354 | True | False | Successfully run |
Record count: 1
{ 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.