From eb370965be5dbe38e644e00ee87d934a841cf985 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Tue, 31 Jul 2001 01:55:23 +0000
Subject: [PATCH] * corrected comparing value for real

---
 tests/test/cg/taddreal.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tests/test/cg/taddreal.pp b/tests/test/cg/taddreal.pp
index d058e100ea..250aa1eeeb 100644
--- a/tests/test/cg/taddreal.pp
+++ b/tests/test/cg/taddreal.pp
@@ -23,7 +23,7 @@
 { RIGHT NODE (operand)                                          }
 {  LOC_FPU                                                      }
 {  LOC_REFERENCE / LOC_MEM                                      }
-{$E-}
+{$E+}
 
  Procedure RealTestSub;
  var
@@ -46,7 +46,7 @@
   j:=j-10.0;
   if j <> 0.0 then
     result := false;
-  WriteLn('Result (10.0) :',i);
+  WriteLn('Result (0.0) :',j);
   if not result then
     WriteLn('Failure.')
   else
@@ -260,7 +260,10 @@ end.
 
 {
   $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
 
   Revision 1.1  2001/05/19 11:51:50  peter