+ added more specific tests

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.