* fixed mantis #10519 (when rounding for the first decimal digit and

    it is at the same time the last, append the 0)

git-svn-id: trunk@9623 -

rtl/inc/real2str.inc

@@ -385,7 +385,14 @@ begin
               roundStr(temp,spos);
               d := frac(d+roundCorr);
               if (f < 0) then
-                dec(currprec);
+                begin
+                  dec(currprec);
+                  if (currprec=0) then
+                    begin
+                      inc(spos);
+                      temp[spos]:='0';
+                    end;
+                end;
             end;
           { calculate the necessary fractional digits }
           for fracCount := 1 to currPrec do