* Fix bug #33795

git-svn-id: trunk@39161 -

packages/rtl-objpas/src/inc/fmtbcd.pp

@@ -1022,7 +1022,7 @@ IMPLEMENTATION
 
     var
       i : {$ifopt r+} __lo_bh + 1 ..__hi_bh {$else} Integer {$endif};
-      j : {$ifopt r+} -1..__high_fraction {$else} Integer {$endif};
+      j : {$ifopt r+} __low_fraction..__high_fraction+1 {$else} Integer {$endif};
       vv : {$ifopt r+} $00..$99 {$else} Integer {$endif};
 
     begin