double | |
g0 (double x) | |
{ | |
return 1.0; | |
} | |
double | |
g1 (double x) | |
{ | |
return -1.0; | |
} | |
double | |
g2 (double x) | |
{ | |
return 0.0; | |
} | |
__complex__ double | |
xcexp (__complex__ double x) | |
{ | |
double r; | |
r = g0 (__real__ x); | |
__real__ x = r * g1 (__imag__ x); | |
__imag__ x = r * g2 (__imag__ x); | |
return x; | |
} | |
main () | |
{ | |
__complex__ double x; | |
x = xcexp (1.0i); | |
if (__real__ x != -1.0) | |
abort (); | |
if (__imag__ x != 0.0) | |
abort (); | |
exit (0); | |
} |