* Test for fix of issue #38489

git-svn-id: trunk@49605 -

tests/test/units/fmtbcd/tfmtbcd.pp

@@ -253,6 +253,7 @@ begin
   bcd:=strtobcd('0');
   testFormatBCD('0;;0',bcd, '0');
   testFormatBCD('0;;#',bcd, '');
+  testFormatBCD('0;;0.#',bcd, '0');
   testFormatBCD('0;;0.00',bcd, '0.00');
 
   // test StrToBCD: