|
@@ -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);
|