Home | History | Annotate | Line # | Download | only in lint1
d_c99_complex_split.c revision 1.5
      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