From 1e12a332bf0d0d18bcbf48fd1d05ae129b5e7366 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 24 Apr 2004 17:14:37 +0000
Subject: [PATCH]   * test for new int64 mod int64 sign behaviour adapted

---
 tests/test/cg/tmoddiv.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/test/cg/tmoddiv.pp b/tests/test/cg/tmoddiv.pp
index 7c62495b40..3a8da2e40f 100644
--- a/tests/test/cg/tmoddiv.pp
+++ b/tests/test/cg/tmoddiv.pp
@@ -294,8 +294,8 @@ begin
   int64res := 10101010;
   int64cnt := -13;
   int64res := int64res mod int64cnt;
-  Write('Value should be -10...');
-  test(longint(int64res), -10);
+  Write('Value should be 10...');
+  test(longint(int64res), 10);
 
   WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REGISTER');
   { RIGHT : LOC_REGISTER       }
@@ -309,8 +309,8 @@ begin
   { LEFT : LOC_REFERENCE       }
   int64res := -1111111;
   int64res := int64res mod getint64cnt;
-  Write('Value should be 1...');
-  test(longint(int64res), 1);
+  Write('Value should be -1...');
+  test(longint(int64res), -1);
 
   { RIGHT : LOC_REFERENCE }
   { LEFT : LOC_REGISTER   }