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

* result adapted

Browse Source
This commit is contained in:
peter 2003-12-08 19:24:17 +00:00
parent 645310a071
commit 5839db8098
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0460.pp
View File

@ -7,15 +7,13 @@ var
begin
str(MinCurrency:0:4,s);
{ output according to delphi }
if s<>'-922337203685477.5810' then
if s<>'-922337203685477.5807' then
begin
writeln(s);
halt(1);
end;
str(MaxCurrency:0:4,s);
{ output according to delphi }
if s<>'922337203685477.5810' then
if s<>'922337203685477.5807' then
begin
writeln(s);
halt(1);