1 1.5 rillig /* $NetBSD: d_c99_complex_split.c,v 1.5 2021/03/27 13:59:18 rillig Exp $ */ 2 1.3 rillig # 3 "d_c99_complex_split.c" 3 1.3 rillig 4 1.5 rillig /* 5 1.5 rillig * Checks that the real and imaginary parts of a complex number can be 6 1.5 rillig * accessed (since C99). 7 1.5 rillig */ 8 1.5 rillig 9 1.4 rillig int 10 1.4 rillig b(double a) 11 1.4 rillig { 12 1.2 christos return a == 0; 13 1.2 christos } 14 1.4 rillig 15 1.4 rillig void 16 1.4 rillig a(void) 17 1.4 rillig { 18 1.4 rillig double _Complex z = 0; 19 1.4 rillig if (b(__real__ z) && b(__imag__ z)) 20 1.4 rillig return; 21 1.1 christos } 22