mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 19:05:54 +02:00
+ added
git-svn-id: trunk@325 -
This commit is contained in:
parent
7e40580fab
commit
fe4e35d0cf
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
12
tests/webtbs/tw4058.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user