-}
-void test_modff()
-{
- float yf, yi;
- int i;
- for (i = 0; i < sizeof tf/sizeof *tf; i++) {
- yf = modff(tf[i].x, &yi);
- if (!eq(yf,tf[i].yf) || !eq(yi,tf[i].yi))
- error("modff(%a) want %a %a got %a %a\n", tf[i].x, tf[i].yf, tf[i].yi, yf, yi);
- }
-}
-void test_modfl()
-{
- long double yf, yi;
- int i;
- for (i = 0; i < sizeof tl/sizeof *tl; i++) {
- yf = modfl(tl[i].x, &yi);
- if (!eq(yf,tl[i].yf) || !eq(yi,tl[i].yi))
- error("modfl(%La) want %La %La got %La %La\n", tl[i].x, tl[i].yf, tl[i].yi, yf, yi);
- }
-}
-
-void bench_modf_small(int N)
-{
- int i;
- double yi;
- volatile double yf;
-
- for (i = 0; i < N; i++)
- yf = modf(1234.5678, &yi);
-}
-
-void bench_modf_negint(int N)
-{
- int i;
- double yi;
- volatile double yf;
-
- for (i = 0; i < N; i++)
- yf = modf(-1234.0, &yi);
-}
-
-void bench_modf_large(int N)
-{
- int i;
- double yi;
- volatile double yf;
-
- for (i = 0; i < N; i++)
- yf = modf(1.2345678e300, &yi);
-}
-
-
-void bench_modff_small(int N)
-{
- int i;
- float yi;
- volatile float yf;
-
- for (i = 0; i < N; i++)
- yf = modff(1234.5678, &yi);
-}
-
-void bench_modff_negint(int N)
-{
- int i;
- float yi;
- volatile float yf;
-
- for (i = 0; i < N; i++)
- yf = modff(-1234.0, &yi);
-}
-
-void bench_modff_large(int N)
-{
- int i;
- float yi;
- volatile float yf;
-
- for (i = 0; i < N; i++)
- yf = modff(1.2345678e100, &yi);