From 360d9afd72d64bcbea391ea90a626b149e3de576 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 14 Jun 2001 02:56:20 +0000
Subject: [PATCH] + added more specific tests

---
 tests/test/cg/tmoddiv.pp | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/tests/test/cg/tmoddiv.pp b/tests/test/cg/tmoddiv.pp
index c11f925e56..0f025ebc51 100644
--- a/tests/test/cg/tmoddiv.pp
+++ b/tests/test/cg/tmoddiv.pp
@@ -164,6 +164,15 @@ begin
   else
     WriteLn('Failure.');
 
+  Writeln('special numeric values tests...');
+  cardinalcnt := $80000;
+  cardinalres := $12345;
+  cardinalres := cardinalcnt div cardinalres;
+  Write('Value should be 7...');
+  if cardinalres = 7 then
+    WriteLn('Success.')
+  else
+    WriteLn('Failure.');
 
 {$IFDEF FPC}
   WriteLn('------------------- CARDINAL -----------------------');
@@ -188,6 +197,16 @@ begin
   else
     WriteLn('Failure.');
 
+  Writeln('special numeric values tests...');
+  cardinalcnt := $80000;
+  cardinalres := $12345;
+  cardinalres := cardinalcnt div cardinalres;
+  Write('Value should be 7...');
+  if cardinalres = 7 then
+    WriteLn('Success.')
+  else
+    WriteLn('Failure.');
+
   WriteLn('(left) : LOC_REFERENCE; (right) : ordinal constant');
   { RIGHT : power of 2 ordconstn   }
   { LEFT : LOC_REFERENCE           }
@@ -401,7 +420,5 @@ begin
   else
     WriteLn('Failure.');
 
-
-  WriteLn('--------------------- QWORD ------------------------');
 {$ENDIF}
 end.
\ No newline at end of file