mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 04:59:29 +01:00
24 lines
360 B
ObjectPascal
24 lines
360 B
ObjectPascal
{ %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.
|