blob: f18e229e71da1a538b730628aa5c0bb4ecde7236 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %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.
|
