X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/432c4e184d44704511a5991b80224a87cb1d4613..e564e3f84ad0ea42b78559c0bfe304893fd5e76b:/tests/gfreduce

diff --git a/tests/gfreduce b/tests/gfreduce
index f548b95..c7c474a 100644
--- a/tests/gfreduce
+++ b/tests/gfreduce
@@ -1,11 +1,11 @@
-# $Id: gfreduce,v 1.4 2004/03/27 17:54:12 mdw Exp $
+# $Id$
 #
 # Test efficient polynomial reduction
 
 reduce {
-          0x10000000
+	  0x10000000
   0x4509823098098435
-           0x8098435;
+	   0x8098435;
   0x100000000000000050002
     0x4509823098098435
     0x4509823098098435;
@@ -19,6 +19,10 @@ reduce {
 
 modexp {
   0x20000000000000000000000000000000000000000000000000000000000001001
+  0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+  0
+  1;
+  0x20000000000000000000000000000000000000000000000000000000000001001
   0x02
   0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
   1;
@@ -34,6 +38,19 @@ modexp {
   0x34235950984598345900983409845690805680985
   0x0fffffffffffffffffffffffffffffffffffffffffff
   1;
+
+  0x800000000000000000000000000000000000000c9
+  0x3f0eba16286a2d57ea0991168d4994637e8343e36
+  -1
+  0x3c8c172e24598e90b9542e6b8f6571f54be572b50;
+  0x800000000000000000000000000000000000000c9
+  0x3c8c172e24598e90b9542e6b8f6571f54be572b50
+  342345
+  0x3521fe2666efe92ca4eb160a286e0fd9427b84a62;
+  0x800000000000000000000000000000000000000c9
+  0x3f0eba16286a2d57ea0991168d4994637e8343e36
+  -342345
+  0x3521fe2666efe92ca4eb160a286e0fd9427b84a62;
 }
 
 sqrt {