github.com/afumu/libc@v0.0.6/musl/src/complex/cprojf.c (about)

     1  #include "complex_impl.h"
     2  
     3  float complex cprojf(float complex z)
     4  {
     5  	if (isinf(crealf(z)) || isinf(cimagf(z)))
     6  		return CMPLXF(INFINITY, copysignf(0.0, crealf(z)));
     7  	return z;
     8  }