paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 08:13:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for bug ID #33795

Browse Source 
git-svn-id: trunk@39200 -
This commit is contained in:
michael 2018-06-09 12:28:01 +00:00
parent 1e1fbf77db
commit d08f06df22
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/fmtbcd/tfmtbcd.pp
View File

@ -293,6 +293,8 @@ begin
testBCDDivide(100, -2, -50);
testBCDDivide(1007, 5, 201.4);
testBCDDivide(StrToBCD('224518.0639999999994919',FS), IntegerToBCD(6615), StrToBCD('33.94075041572184421646258503401360544217687074829931972789115646',FS)); // bug #33795
// test BCDCompare:
testBCDCompare(100, 100, 0);
testBCDCompare(-100.1, -100.1, 0);