paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-11-06 22:46:45 +00:00
parent 79e37b1ba5
commit e861eaa4c0
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/tbs/tb0460.pp
View File

@ -2,5 +2,22 @@ const
MinCurrency : Currency = -922337203685477.5807; MinCurrency : Currency = -922337203685477.5807;
MaxCurrency : Currency = 922337203685477.5807; MaxCurrency : Currency = 922337203685477.5807;
var
s : string;
begin begin
str(MinCurrency:0:4,s);
{ output according to delphi }
if s<>'-922337203685477.5810' then
begin
writeln(s);
halt(1);
end;
str(MaxCurrency:0:4,s);
{ output according to delphi }
if s<>'922337203685477.5810' then
begin
writeln(s);
halt(1);
end;
end. end.