paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 18:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improved test, previously it mainly tested integer comparisations

Browse Source
This commit is contained in:
florian 2004-03-13 11:07:50 +00:00
parent 6f13b5d5f3
commit 3b96f1fcbb
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -176,6 +176,10 @@ end;
Write('Real = Real test...');
i := 1000.0;
j := 1000.0;
if not (i=j) then
result := false;
if not (i=1000.0) then
result := false;
if not (trunc(i) = trunc(j)) then
result := false;
if not (trunc(i) = trunc(1000.0)) then
@ -196,6 +200,9 @@ end;
Write('Real <> Real test...');
i := 1000.0;
j := 1000.0;
if (i <> j) then
result := false;
if (i <> 1000.0) then
if (trunc(i) <> trunc(j)) then
result := false;
if (trunc(i) <> trunc(1000.0)) then
@ -217,6 +224,10 @@ end;
Write('Real <= Real test...');
i := 1000.0;
j := 1000.0;
if not (i <= j) then
result := false;
if not (i <= 1000.0) then
result := false;
if not (trunc(i) <= trunc(j)) then
result := false;
if not (trunc(i) <= trunc(1000.0)) then
@ -243,12 +254,20 @@ end;
Write('Real >= Real test...');
i := 1000.0;
j := 1000.0;
if not (i >= j) then
result := false;
if not (i >= 1000.0) then
result := false;
if not (trunc(i) >= trunc(j)) then
result := false;
if not (trunc(i) >= trunc(1000.0)) then
result := false;
i := 999.0;
j := 1000.0;
if i > j then
result := false;
if i > 999.0 then
result := false;
if trunc(i) > trunc(j) then
result := false;
if trunc(i) > trunc(999.0) then
@ -275,7 +294,10 @@ end.
{
$Log$
Revision 1.4 2003-04-26 16:44:10 florian
Revision 1.5 2004-03-13 11:07:50 florian
* improved test, previously it mainly tested integer comparisations
Revision 1.4 2003/04/26 16:44:10 florian
* released the code for all cpus, at least with i386, it works fine
Revision 1.3 2002/12/06 15:49:36 peter