diff options
Diffstat (limited to 'math/w_tgammal.c')
-rw-r--r-- | math/w_tgammal.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/math/w_tgammal.c b/math/w_tgammal.c index 86adab29ea..72b247db2a 100644 --- a/math/w_tgammal.c +++ b/math/w_tgammal.c @@ -27,7 +27,8 @@ __tgammal(long double x) int local_signgam; long double y = __ieee754_gammal_r(x,&local_signgam); - if(__builtin_expect(!__finitel(y), 0) && __finitel(x) + if(__builtin_expect(!__finitel(y), 0) + && (__finitel (x) || __isinfl (x) < 0) && _LIB_VERSION != _IEEE_) { if(x==0.0) return __kernel_standard_l(x,x,250); /* tgamma pole */ |