From 553efb3e86cd585fba830470fa01a3c5c8b21fd6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Wed, 2 Dec 2015 21:05:18 +0100
Subject: [PATCH] add arithm10.pas to test suite

---
 TestSuite/arithm10.pas | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 TestSuite/arithm10.pas

diff --git a/TestSuite/arithm10.pas b/TestSuite/arithm10.pas
new file mode 100644
index 000000000..71821d96f
--- /dev/null
+++ b/TestSuite/arithm10.pas
@@ -0,0 +1,28 @@
+var 
+    sh : shortint;
+    sm : smallint;
+    i : integer;
+    li : int64;
+    f: single;
+    r: real;
+    
+begin
+sh := 1; 
+sm := 1; 
+i := 1; 
+li := 1;
+f := 1;
+r := 1;
+sh := -sh;
+sm := -sm;
+i := -i;
+li := -li;
+f := -f;
+r := -r;
+assert(sh = -1);
+assert(sm = -1);
+assert(i = -1);
+assert(li = -1);
+assert(abs(r+1) < 0.00001);
+assert(abs(f+1) < 0.00001);
+end.
\ No newline at end of file