* fixed int64 tests

tests/test/cg/tmoddiv.pp

@@ -253,8 +253,8 @@ begin
   int64res := $7FFFFFFF shl 32;
   int64cnt := $80000000 shl 32;
   int64res := int64cnt div int64res;
-  Write('Value should be 1...');
-  test(int64res and $FFFFFFFF, 1);
+  Write('Value should be -1...');
+  test(int64res and $FFFFFFFF, -1);
 
   int64res := $7FFFFFFF;
   int64cnt := $80000000;
@@ -299,8 +299,8 @@ begin
   int64res := 10101010;
   int64cnt := -13;
   int64res := int64res mod int64cnt;
-  Write('Value should be 10...');
-  test(int64res and $FFFFFFFF, 10);
+  Write('Value should be -10...');
+  test(int64res and $FFFFFFFF, -10);
 
   WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REGISTER');
   { RIGHT : LOC_REGISTER       }
@@ -314,8 +314,8 @@ begin
   { LEFT : LOC_REFERENCE       }
   int64res := -1111111;
   int64res := int64res mod getint64cnt;
-  Write('Value should be -1...');
-  test(int64res and $FFFFFFFF, -1);
+  Write('Value should be 1...');
+  test(int64res and $FFFFFFFF, 1);
 
   { RIGHT : LOC_REFERENCE }
   { LEFT : LOC_REGISTER   }