paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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