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

Merged revisions 1458 via svnmerge from

Browse Source 
svn+ssh://jonas@svn.freepascal.org/FPC/svn/fpc/trunk

r1458 (jonas)
  * fixed test for x86

git-svn-id: branches/fixes_2_0@1460 -
This commit is contained in:
Jonas Maebe 2005-10-18 07:23:48 +00:00
parent 7c389cad7f
commit f18e4aa664
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw1792a.pp
View File

@ -14,7 +14,11 @@ Begin
{$ifdef FPC_HAS_TYPE_DOUBLE}
str(double(intpower(2,63)),s);
{$ifdef FPC_HAS_TYPE_EXTENDED}
if s<>' 9.223372036854776E+018' then
{$else FPC_HAS_TYPE_EXTENDED}
if s<>' 9.22337203685478E+018' then
{$endif FPC_HAS_TYPE_EXTENDED}
begin
WriteLn(double(intpower(2,63)));
halt(1);