From a67c184200c266f2cc586323a8e55f5f3e01b85f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 2 Feb 2021 21:36:54 +0000
Subject: [PATCH]   * test for already fixed issue #32139

git-svn-id: trunk@48501 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw32139.pp | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 tests/webtbs/tw32139.pp

diff --git a/.gitattributes b/.gitattributes
index 7bc7786e85..d8018b4c89 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -18303,6 +18303,7 @@ tests/webtbs/tw32111.pp svneol=native#text/pascal
 tests/webtbs/tw32115.pp svneol=native#text/pascal
 tests/webtbs/tw32118.pp svneol=native#text/pascal
 tests/webtbs/tw3212.pp svneol=native#text/plain
+tests/webtbs/tw32139.pp -text svneol=native#text/pascal
 tests/webtbs/tw3214.pp svneol=native#text/plain
 tests/webtbs/tw32150.pp svneol=native#text/pascal
 tests/webtbs/tw3216.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw32139.pp b/tests/webtbs/tw32139.pp
new file mode 100644
index 0000000000..ced0f60db1
--- /dev/null
+++ b/tests/webtbs/tw32139.pp
@@ -0,0 +1,11 @@
+{ %OPT=-Seh }
+program Test;
+
+{$HINTS ON}
+
+var
+  cur: Currency;
+begin
+  cur := 3.5;
+  cur := cur / 1.5;
+end.