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

* made test more verbose

Browse Source 
git-svn-id: trunk@46707 -
This commit is contained in:
florian 2020-08-26 21:01:38 +00:00
parent f4ded560cc
commit 1041bc5a17
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/cg/taddreal1.pp
View File

@ -53,11 +53,11 @@ end;
i:=i-j;
if trunc(i) <> trunc(89.9) then
result := false;
WriteLn('Result (89.9) :',i);
WriteLn('Result (89.9) :',i,' trunc(i)=',trunc(i),' trunc(89.9)=',trunc(89.9));
i:=j-i;
if trunc(i) <> trunc(-79.9) then
result := false;
WriteLn('Result (-79.9) :',i);
WriteLn('Result (-79.9) :',i,' trunc(i)=',trunc(i),' trunc(-79.9)=',trunc(-79.9));
j:=j-10.0;
if j <> 0.0 then
result := false;