/*      $NetBSD: d_c99_complex_num.c,v 1.3 2023/03/28 14:44:34 rillig Exp $     */
# 3 "d_c99_complex_num.c"

/* lint1-extra-flags: -X 351 */

double cabs(double _Complex);

double cabs(double _Complex foo)
{
        double d = __real__ foo;
        return d + 0.1fi;
}