X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?a=blobdiff_plain;f=check%2Ftime_gammaseries.cpp;h=cd09eacc7c17e1a732615258ecb6c63d00f3df43;hb=93d02d3b90587f38cbc33cf25ee89795c415574c;hp=3f07f64617a109ab9f781274c15615d709fdc0f1;hpb=e22d2ed95925d870876c4fcd922ea2a9cfdbdab1;p=ginac.git

diff --git a/check/time_gammaseries.cpp b/check/time_gammaseries.cpp
index 3f07f646..cd09eacc 100644
--- a/check/time_gammaseries.cpp
+++ b/check/time_gammaseries.cpp
@@ -33,13 +33,13 @@ unsigned tgammaseries(unsigned order)
 	unsigned result = 0;
 	symbol x;
 
-	ex myseries = series(tgamma(x),x==0,order);
+	ex myseries = series(GiNaC::tgamma(x),x==0,order);
 	// compute the last coefficient numerically:
 	ex last_coeff = myseries.coeff(x,order-1).evalf();
 	// compute a bound for that coefficient using a variation of the leading
 	// term in Stirling's formula:
 	ex bound = exp(-.57721566490153286*(order-1))/(order-1);
-	if (abs((last_coeff-pow(-1,order))/bound) > 1) {
+	if (abs((last_coeff-pow(-1,ex(order)))/bound) > 1) {
 		clog << "The " << order-1
 		     << "th order coefficient in the power series expansion of tgamma(0) was erroneously found to be "
 		     << last_coeff << ", violating a simple estimate." << endl;