This commit was generated by cvs2svn to track changes on a CVS vendor
[openssl.git] / perl / zz.pl
1 #!/usr/local/bin/perl
2 use ExtUtils::testlib;
3 use SSLeay;
4
5 $a=SSLeay::BN::dec2bn("12345678901234567890");
6 $b=SSLeay::BN::dec2bn("98765432109876543210");
7 print "a=$a\n";
8 print "b=$b\n";
9
10 $n=$a*$b;
11 $m=$n+"1223123235345634764534567889";
12 $l=$m*88888888;
13
14 $r=$l/$b;
15
16 print "a=$a\n";
17 print "b=$b\n";
18 print "n=$n\n";
19 print "m=$m\n";
20 print "l=$l\n";
21 print "r=$r\n";
22