1 files changed, 116 insertions, 0 deletions
diff --git a/testsuites/libtests/complex/docomplex.in b/testsuites/libtests/complex/docomplex.in
new file mode 100644
index 0000000000..e476f6dfd3
--- /dev/null
+++ b/testsuites/libtests/complex/docomplex.in
@@ -0,0 +1,116 @@
+/*
+ * Copyright (c) 2010, 2011 by
+ * Ralf Corsepius, Ulm/Germany. All rights reserved.
+ *
+ * Permission to use, copy, modify, and distribute this software
+ * is freely granted, provided that this notice is preserved.
+ */
+
+/*
+ * Try to compile and link against POSIX complex math routines.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <complex.h>
+#include <stdio.h>
+
+extern void docomplex@FSUFFIX@ (void);
+
+void
+docomplex@FSUFFIX@ (void)
+{
+#ifndef @FGUARD@
+  complex @FTYPE@ ca, cb, cc;
+  @FTYPE@ f1;
+
+  ca = 1.0 + 1.0 * I;
+  cb = 1.0 - 1.0 * I;
+
+  f1 = cabs@FSUFFIX@ (ca);
+  fprintf (stdout, "cabs@FSUFFIX@  : %f\n", f1);
+
+  cc = cacos@FSUFFIX@ (ca);
+  fprintf (stdout, "cacos@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = cacosh@FSUFFIX@ (ca);
+  fprintf (stdout, "cacosh@FSUFFIX@: %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  f1 = carg@FSUFFIX@ (ca);
+  fprintf (stdout, "carg@FSUFFIX@  : %f\n", f1);
+
+  cc = casin@FSUFFIX@ (ca);
+  fprintf (stdout, "casin@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = casinh@FSUFFIX@ (ca);
+  fprintf (stdout, "casinh@FSUFFIX@: %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = catan@FSUFFIX@ (ca);
+  fprintf (stdout, "catan@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = catanh@FSUFFIX@ (ca);
+  fprintf (stdout, "catanh@FSUFFIX@: %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = ccos@FSUFFIX@ (ca);
+  fprintf (stdout, "ccos@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = ccosh@FSUFFIX@ (ca);
+  fprintf (stdout, "ccosh@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = cexp@FSUFFIX@ (ca);
+  fprintf (stdout, "cexp@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  f1 = cimag@FSUFFIX@ (ca);
+  fprintf (stdout, "cimag@FSUFFIX@ : %f\n", f1);
+
+  cc = clog@FSUFFIX@ (ca);
+  fprintf (stdout, "clog@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = conj@FSUFFIX@ (ca);
+  fprintf (stdout, "conj@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = cpow@FSUFFIX@ (ca, cb);
+  fprintf (stdout, "cpow@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = cproj@FSUFFIX@ (ca);
+  fprintf (stdout, "cproj@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  f1 = creal@FSUFFIX@ (ca);
+  fprintf (stdout, "creal@FSUFFIX@ : %f\n", f1);
+
+  cc = csin@FSUFFIX@ (ca);
+  fprintf (stdout, "csin@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = csinh@FSUFFIX@ (ca);
+  fprintf (stdout, "csinh@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = csqrt@FSUFFIX@ (ca);
+  fprintf (stdout, "csqrt@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = ctan@FSUFFIX@ (ca);
+  fprintf (stdout, "ctan@FSUFFIX@  : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+
+  cc = ctanh@FSUFFIX@ (ca);
+  fprintf (stdout, "ctanh@FSUFFIX@ : %f %fi\n", creal@FSUFFIX@ (cc),
+	   cimag@FSUFFIX@ (cc));
+#endif
+}