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

* corrected comparing value for real

Browse Source
This commit is contained in:
carl 2001-07-31 01:55:23 +00:00
parent 7002745651
commit eb370965be
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/cg/taddreal.pp
View File

@ -23,7 +23,7 @@
{ RIGHT NODE (operand) } { RIGHT NODE (operand) }
{ LOC_FPU } { LOC_FPU }
{ LOC_REFERENCE / LOC_MEM } { LOC_REFERENCE / LOC_MEM }
{$E-} {$E+}
Procedure RealTestSub; Procedure RealTestSub;
var var
@ -46,7 +46,7 @@
j:=j-10.0; j:=j-10.0;
if j <> 0.0 then if j <> 0.0 then
result := false; result := false;
WriteLn('Result (10.0) :',i); WriteLn('Result (0.0) :',j);
if not result then if not result then
WriteLn('Failure.') WriteLn('Failure.')
else else
@ -260,7 +260,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2001-06-12 01:12:34 carl Revision 1.3 2001-07-31 01:55:23 carl
* corrected comparing value for real
Revision 1.2 2001/06/12 01:12:34 carl
+ added header + added header
Revision 1.1 2001/05/19 11:51:50 peter Revision 1.1 2001/05/19 11:51:50 peter