paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 11:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tests

Browse Source 
o fixed use of loop counter after end of loop
   o fixed reliance on old behaviour for int -> real typecasts

git-svn-id: trunk@45379 -
This commit is contained in:
Jonas Maebe 2020-05-16 13:31:28 +00:00
parent f432bd9307
commit 6f165b6c01
1 changed files with 3 additions and 2 deletions

5
tests/test/jvm/test.pp
View File

@ -229,6 +229,7 @@ begin
j:=0;
for i:=1 to 10 do
j:=j+i;
i:=10;
if (j<(i*(i+1) div 2)) or
(j>(i*(i+1) div 2)) then
exit(3);
@ -1166,7 +1167,7 @@ begin
i:=jint(f);
f:=1.0;
f:=jfloat(i);
if f<>123.125 then
if f<>1123434496.0 then
exit;
result:=-2;
@ -1174,7 +1175,7 @@ begin
l:=jlong(d);
d:=1.0;
d:=jdouble(l);
if d<>9876.0625 then
if d<>4666655037106159616 then
exit;
result:=0;
end;