* generate more efficient code for trunc(currency), trunc(comp), and

    round(comp) on platforms where currency and comp are handled using the FPU
   o also fixes trunc(comp) and trunc(currency) compilation for x86 on LLVM
     with -Oofastmath
 * add missing removal of excess fpu precision typecasts for trunc/round

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47854 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/tbs/tb0683.pp b/tests/tbs/tb0683.pp
new file mode 100644
index 0000000000..3f10d042a6
--- /dev/null
+++ b/tests/tbs/tb0683.pp
@@ -0,0 +1,22 @@
+{$ifndef SKIP_CURRENCY_TEST}
+var
+  c: currency;
+  co: comp;
+  i: int64;
+begin
+  c:=10.25;
+  co:=12;
+  i:=trunc(c);
+  if i<>10 then
+    halt(1);
+  i:=trunc(co);
+  if i<>12 then
+    halt(2);
+  i:=round(co);
+  if i<>12 then
+   halt(3);
+end.
+{$else}
+begin
+end.
+{$endif}