X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Ffmodl.c;h=3dd7f4fc30e31fc2f2b5d8541d62752afc8286dc;hb=e46cff2afb47cd99dbdfad31f411c3f7c23ac3f5;hp=e10cd8a702490d1d9bc777ae70b171bb0525d396;hpb=cfa23cc1bd01f5c44d7746b8b1839f84d5e1b6eb;p=libc-test

diff --git a/src/math/fmodl.c b/src/math/fmodl.c
index e10cd8a..3dd7f4f 100644
--- a/src/math/fmodl.c
+++ b/src/math/fmodl.c
@@ -40,7 +40,7 @@ int main(void)
 			err++;
 		}
 		d = ulperrl(y, p->y, p->dy);
-		if (!checkulp(d, p->r)) {
+		if (!checkcr(y, p->y, p->r)) {
 			printf("%s:%d: %s fmodl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
 				p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
 			err++;