1extern double R_NaReal;
2void z_atan2 (double _Complex * r, double _Complex * ccs)
3{
4    if (*ccs == 0)
5        __imag__ *r = R_NaReal;
6}
7
8