1 /* $NetBSD: d_c99_complex_num.c,v 1.2 2021/01/31 14:39:31 rillig Exp $ */ 2 # 3 "d_c99_complex_num.c" 3 4 double cabs(double _Complex); 5 6 double cabs(double _Complex foo) 7 { 8 double d = __real__ foo; 9 return d + 0.1fi; 10 } 11