t_id
1534
t_adddate
2005/03/18
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022248227 | 1027299 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 3790 } { Submitted by "C Western" on 2005-03-14 } { e-mail: mftq75@dsl.pipex.com } program test; {$mode objfpc}{$H+} uses Classes, SysUtils; function A(Error: Double):string; begin WriteLn('Hello'); if Error < 0 then begin Result := Str(Error:5); end; end; begin WriteLn(A(-53)); end.