+ added

git-svn-id: trunk@325 -

.gitattributes

@@ -6142,6 +6142,7 @@ tests/webtbs/tw4010.pp svneol=native#text/plain
 tests/webtbs/tw4013.pp svneol=native#text/plain
 tests/webtbs/tw4038.pp svneol=native#text/plain
 tests/webtbs/tw4055.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.