git-svn-id: trunk@325 -
This commit is contained in:
Jonas Maebe 2005-06-09 20:12:59 +00:00
parent 7e40580fab
commit fe4e35d0cf
2 changed files with 13 additions and 0 deletions

1
.gitattributes vendored
View File

@ -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

12
tests/webtbs/tw4058.pp Normal file
View File

@ -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.