diff --git a/tests/webtbs/tw1792a.pp b/tests/webtbs/tw1792a.pp
index 1993a7a8ce..c2ba829c0e 100644
--- a/tests/webtbs/tw1792a.pp
+++ b/tests/webtbs/tw1792a.pp
@@ -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);