X-Git-Url: http://nsz.repo.hu/git/?p=libc-test;a=blobdiff_plain;f=src%2Fmath%2Ftgamma.c;fp=src%2Fmath%2Ftgamma.c;h=6f69baed4bfa0078efba8e7207a3c3b5a1123ea2;hp=18992fe771c0754dd4d1e419cc705343a9de9d53;hb=5fc943786cdd4e93efe31f9f742f2097cec9f8a1;hpb=75543c20a003e3108b51cb63998752d27621f993;ds=sidebyside

diff --git a/src/math/tgamma.c b/src/math/tgamma.c
index 18992fe..6f69bae 100644
--- a/src/math/tgamma.c
+++ b/src/math/tgamma.c
@@ -33,11 +33,13 @@ int main(void)
 			err++;
 		}
 		d = ulperr(y, p->y, p->dy);
-		// TODO: 2 ulp errors allowed
-		if (p->r==RN && fabs(d)>2) {
+		if (!checkulp(d, p->r)) {
+			if (fabsf(d) < 5.5f)
+				printf("X ");
+			else
+				err++;
 			printf("%s:%d: %s tgamma(%a) want %a got %a ulperr %.3f = %a + %a\n",
 				p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
-			err++;
 		}
 	}
 	return !!err;