]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/gcc.c-torture/execute/complex-1.c
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / gcc.c-torture / execute / complex-1.c
diff --git a/gcc/testsuite/gcc.c-torture/execute/complex-1.c b/gcc/testsuite/gcc.c-torture/execute/complex-1.c
deleted file mode 100644 (file)
index 424fa65..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-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);
-}