1 #include <openssl/bn.h>
7 return (x[0] + 2*x[1]);
10 void bug(char *m, BIGNUM *a, BIGNUM *b)
13 BN_print_fp(stdout, a);
15 BN_print_fp(stdout, b);
21 BIGNUM *a=BN_new(), *b=BN_new(), *c=BN_new(), *d=BN_new(),
22 *C=BN_new(), *D=BN_new();
23 BN_RECP_CTX *recp=BN_RECP_CTX_new();
24 BN_CTX *ctx=BN_CTX_new();
27 BN_rand(a,rand(),0,0);
28 BN_rand(b,rand(),0,0);
29 if (BN_is_zero(b)) continue;
31 BN_RECP_CTX_set(recp,b,ctx);
32 if (BN_div(C,D,a,b,ctx) != 1)
33 bug("BN_div failed",a,b);
34 if (BN_div_recp(c,d,a,recp,ctx) != 1)
35 bug("BN_div_recp failed",a,b);
36 else if (BN_cmp(c,C) != 0 || BN_cmp(c,C) != 0)