* run test only if the platform supports the extended type

git-svn-id: trunk@17325 -

tests/webtbs/tw19077.pp

@@ -3,11 +3,13 @@ uses
 var
   c : currency;
 begin
+{$ifdef FPC_HAS_TYPE_EXTENDED}
   c:=1.5625;
   c:=RoundTo(c,-1);
   if c<>1.6 then
     halt(1);
   writeln('ok');
+{$endif FPC_HAS_TYPE_EXTENDED}
 end.