41 lines
440 B
C
41 lines
440 B
C
|
double
|
||
|
|
g0 (double x)
|
||
|
|
{
|
||
|
|
return 1.0;
|
||
|
|
}
|
||
|
|
|
||
|
|
double
|
||
|
|
g1 (double x)
|
||
|
|
{
|
||
|
|
return -1.0;
|
||
|
|
}
|
||
|
|
|
||
|
|
double
|
||
|
|
g2 (double x)
|
||
|
|
{
|
||
|
|
return 0.0;
|
||
|
|
}
|
||
|
|
|
||
|
|
__complex__ double
|
||
|
|
cexp (__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 = cexp (1.0i);
|
||
|
|
if (__real__ x != -1.0)
|
||
|
|
abort ();
|
||
|
|
if (__imag__ x != 0.0)
|
||
|
|
abort ();
|
||
|
|
exit (0);
|
||
|
|
}
|