* fixed for extended = double

tests/webtbs/tw2226.pp

@@ -7,10 +7,14 @@ const mindouble: double = -5.0E324;
 
 var
   s : string;
-
+  correct : string;
 begin
+  case sizeof(extended) of
+    10: correct := '                   -Inf';
+    8: correct := '                  -Inf';
+  end;
   str(mindouble,s);
-  if s<>'                   -Inf' then
+  if s<>correct then
     begin
       writeln('error');
       halt(1);