check_eps ("cabs (0.7 + i 1.2) == 1.38924...", FUNC(cabs) (BUILD_COMPLEX(0.7, 1.2)), 1.3892443989449804508L, CHOOSE(7e-17L, 3e-16, 0));
cabs_test (void){  /* cabs (x + iy) is specified as hypot (x,y) */  MATHTYPE a;  a = random_greater (0);  check_isinfp_ext ("cabs (+inf + i x) == +inf",		    FUNC(cabs) (BUILD_COMPLEX (plus_infty, a)), a);  check_isinfp_ext ("cabs (-inf + i x) == +inf",		    FUNC(cabs) (BUILD_COMPLEX (minus_infty, a)), a);  check_isinfp ("cabs (+inf+ iNaN) == +inf",		FUNC(cabs) (BUILD_COMPLEX(minus_infty, nan_value)));  check_isinfp ("cabs (-inf+ iNaN) == +inf",		FUNC(cabs) (BUILD_COMPLEX(minus_infty, nan_value)));  check_isnan ("cabs (NaN+ iNaN) == NaN",	       FUNC(cabs) (BUILD_COMPLEX(nan_value, nan_value)));  a = FUNC(cabs) (BUILD_COMPLEX (12.4L, 0.7L));  check ("cabs (x,y) == cabs (y,x)",	 FUNC(cabs) (BUILD_COMPLEX(0.7L, 12.4L)), a);  check ("cabs (x,y) == cabs (-x,y)",	 FUNC(cabs) (BUILD_COMPLEX(-12.4L, 0.7L)), a);  check ("cabs (x,y) == cabs (-y,x)",	 FUNC(cabs) (BUILD_COMPLEX(-0.7L, 12.4L)), a);  check ("cabs (x,y) == cabs (-x,-y)",	 FUNC(cabs) (BUILD_COMPLEX(-12.4L, -0.7L)), a);  check ("cabs (x,y) == cabs (-y,-x)",	 FUNC(cabs) (BUILD_COMPLEX(-0.7L, -12.4L)), a);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(-0.7L, 0)), 0.7L);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(0.7L, 0)), 0.7L);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(-1.0L, 0)), 1.0L);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(1.0L, 0)), 1.0L);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(-5.7e7L, 0)),	 5.7e7L);  check ("cabs (x,0) == fabs (x)", FUNC(cabs) (BUILD_COMPLEX(5.7e7L, 0)),	 5.7e7L);}