summaryrefslogtreecommitdiffstats
path: root/testsuites/libtests/complex/docomplex.in
diff options
context:
space:
mode:
Diffstat (limited to 'testsuites/libtests/complex/docomplex.in')
-rw-r--r--testsuites/libtests/complex/docomplex.in116
1 files changed, 0 insertions, 116 deletions
diff --git a/testsuites/libtests/complex/docomplex.in b/testsuites/libtests/complex/docomplex.in
deleted file mode 100644
index e476f6dfd3..0000000000
--- a/testsuites/libtests/complex/docomplex.in
+++ /dev/null
@@ -1,116 +0,0 @@
-/*
- * 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
-}