1 /* $NetBSD: d_c99_complex_num.c,v 1.3 2023/03/28 14:44:34 rillig Exp $ */ 2 # 3 "d_c99_complex_num.c" 3 4 /* lint1-extra-flags: -X 351 */ 5 6 double cabs(double _Complex); 7 cabs(double _Complex foo)8 double cabs(double _Complex foo) 9 { 10 double d = __real__ foo; 11 return d + 0.1fi; 12 } 13