$OpenBSD: patch-src_nmath_dnbeta_c,v 1.1 2008/07/26 14:59:45 martynas Exp $
--- src/nmath/dnbeta.c.orig	Wed Sep  5 01:13:30 2007
+++ src/nmath/dnbeta.c	Sat Jul 26 13:56:45 2008
@@ -79,7 +79,7 @@ double dnbeta(double x, double a, double b, double lam
 	return dbeta(x, a, b, give_log);
 
     term = dbeta(x, a, b, /* log = */ FALSE);
-    if(!R_FINITE(term)) /* in particular, if term = +Inf */
+    if(!R_FINITE((double)term)) /* in particular, if term = +Inf */
 	return R_D_val(term);
     lambda2 = 0.5 * lambda;
     weight = exp(- lambda2);
