+++ /dev/null
-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);
-}