paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:39:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 2005-02-08 20:24:52 +00:00
parent a091c27609
commit 2ccc7d566c
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw1792a.pp
View File

@ -1,4 +1,23 @@
{ %RESULT=207 }
uses
math;
var
s : string;
Begin
WriteLn(power(2,63));
{$ifdef FPC_HAS_TYPE_EXTENDED}
str(intpower(2,63),s);
if s<>' 9.2233720368547758E+0018' then
begin
WriteLn(intpower(2,63));
halt(1);
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE}
str(double(intpower(2,63)),s);
if s<>' 9.223372036854776E+018' then
begin
WriteLn(double(intpower(2,63)));
halt(1);
end;
{$endif FPC_HAS_TYPE_DOUBLE}
end.