From d08f06df229817ca29f4aec1d9e8bad098f4c0e3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 9 Jun 2018 12:28:01 +0000
Subject: [PATCH] * Test for bug ID #33795

git-svn-id: trunk@39200 -
---
 tests/test/units/fmtbcd/tfmtbcd.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/test/units/fmtbcd/tfmtbcd.pp b/tests/test/units/fmtbcd/tfmtbcd.pp
index bd0d4aa965..577eb08358 100644
--- a/tests/test/units/fmtbcd/tfmtbcd.pp
+++ b/tests/test/units/fmtbcd/tfmtbcd.pp
@@ -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);