Merged revisions 325 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@326 -

.gitattributes

@@ -6122,6 +6122,7 @@ tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4013.pp svneol=native#text/plain
+tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4058.pp

@@ -0,0 +1,12 @@
+{$q+}
+program IntCalcBug;
+
+var i, j1, j2 : LongInt;
+
+begin
+	i := 52000;
+	j1 := 1440 - round (i/60);
+	j2 := -round (i/60) + 1440;
+        if (j1 <> j2) then
+          halt(1);
+end.