xlint/lint1/d_c99_complex_num.c

1.3  rillig /*	$NetBSD: d_c99_complex_num.c,v 1.3 2023/03/28 14:44:34 rillig Exp $	*/
1.2  rillig # 3 "d_c99_complex_num.c"
1.2  rillig
1.3  rillig /* lint1-extra-flags: -X 351 */
1.3  rillig
1.1  jruoho double cabs(double _Complex);
1.1  jruoho
1.1  jruoho double cabs(double _Complex foo)
1.1  jruoho {
1.1  jruoho 	double d = __real__ foo;
1.1  jruoho 	return d + 0.1fi;
1.1  jruoho }