diff --git a/.gitattributes b/.gitattributes
index 29628b9c80..e7a52bf0e4 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw4058.pp b/tests/webtbs/tw4058.pp
new file mode 100644
index 0000000000..489e2a8c0d
--- /dev/null
+++ b/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.