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

* fixed test for x86

Browse Source 
git-svn-id: trunk@1458 -
This commit is contained in:
Jonas Maebe 2005-10-18 07:21:46 +00:00
parent 539b7dc220
commit 09279d0831
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} {$ifdef FPC_HAS_TYPE_DOUBLE}
str(double(intpower(2,63)),s); 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 if s<>' 9.22337203685478E+018' then
{$endif FPC_HAS_TYPE_EXTENDED}
begin begin
WriteLn(double(intpower(2,63))); WriteLn(double(intpower(2,63)));
halt(1); halt(1);