+ new test (already works)

git-svn-id: trunk@7784 -

.gitattributes

@@ -8308,6 +8308,7 @@ tests/webtbs/tw9076a.pp svneol=native#text/plain
 tests/webtbs/tw9085.pp svneol=native#text/plain
 tests/webtbs/tw9098.pp svneol=native#text/plain
 tests/webtbs/tw9107.pp svneol=native#text/plain
+tests/webtbs/tw9108.pp svneol=native#text/plain
 tests/webtbs/tw9113.pp svneol=native#text/plain
 tests/webtbs/tw9128.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain

tests/webtbs/tw9108.pp

@@ -0,0 +1,11 @@
+program bug;
+
+function Func(a:longint): longint;
+begin
+  if (a >= 0) then Func:=Trunc(1.0*a) else Func:=-Trunc(1.0*a);
+end;
+
+begin
+  if Func(100) <> 100 then
+    halt(1);
+end.