t_id
1468
t_adddate
2005/01/26
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565144409 | 954639 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3534 } { Submitted by "Mattias Gaertner" on 2005-01-08 } { e-mail: mattias@freepascal.org } program IntToStrSmallIntBug; {$mode objfpc}{$H+} uses SysUtils; var i: SmallInt; begin i:=-3; writeln(IntToStr(i)); if IntToStr(i)<>'-3' then halt(1); end.