From d78a4bcc9d7df44cc20fa8400a66cc628866d4aa Mon Sep 17 00:00:00 2001
From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Sun, 18 Dec 2005 23:36:36 +0000
Subject: [PATCH] * Fix signed/unsigned bug in bernoulli function.

---
 ginac/numeric.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ginac/numeric.cpp b/ginac/numeric.cpp
index f62b0d25..8825bdb9 100644
--- a/ginac/numeric.cpp
+++ b/ginac/numeric.cpp
@@ -1708,7 +1708,7 @@ const numeric bernoulli(const numeric &nn)
 	results.reserve(n/2);
 	for (unsigned p=next_r; p<=n;  p+=2) {
 		cln::cl_I  c = 1;  // seed for binonmial coefficients
-		cln::cl_RA b = cln::cl_RA(1-p)/2;
+		cln::cl_RA b = cln::cl_RA(p-1)/-2;
 		const unsigned p3 = p+3;
 		const unsigned pm = p-2;
 		unsigned i, k, p_2;
-- 
2.44.0