t_id
1218
t_adddate
2003/12/13
t_result
0
t_knownrunerror
0
t_opts
-Sew
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526156047 | 948308 | True | False | Successfully run |
Record count: 1
{ %opt=-Sew } { Source provided for Free Pascal Bug Report 2841 } { Submitted by "Mattias Gaertner" on 2003-12-09 } { e-mail: mattias@freepascal.org } program ShortStringNotInitialized; {$mode objfpc}{$H+} procedure DoSomething; var s: shortstring; begin s[1]:=chr(3); end; begin end.