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