1 files changed, 8 insertions, 99 deletions
diff --git a/testsuites/libtests/complex/docomplexl.c b/testsuites/libtests/complex/docomplexl.c
index f63d00ad30..87817c7773 100644
--- a/testsuites/libtests/complex/docomplexl.c
+++ b/testsuites/libtests/complex/docomplexl.c
@@ -11,106 +11,15 @@
  */
 
 #ifdef HAVE_CONFIG_H
-#include "config.h"
+  #include "config.h"
 #endif
 
-#include <complex.h>
-#include <stdio.h>
-
-extern void docomplexl (void);
-
-void
-docomplexl (void)
-{
-#ifndef NO_LONG_DOUBLE
-  complex long double ca, cb, cc;
-  long double f1;
-
-  ca = 1.0 + 1.0 * I;
-  cb = 1.0 - 1.0 * I;
-
-  f1 = cabsl (ca);
-  fprintf (stdout, "cabsl  : %Lf\n", f1);
-
-  cc = cacosl (ca);
-  fprintf (stdout, "cacosl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = cacoshl (ca);
-  fprintf (stdout, "cacoshl: %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  f1 = cargl (ca);
-  fprintf (stdout, "cargl  : %Lf\n", f1);
-
-  cc = casinl (ca);
-  fprintf (stdout, "casinl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = casinhl (ca);
-  fprintf (stdout, "casinhl: %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = catanl (ca);
-  fprintf (stdout, "catanl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = catanhl (ca);
-  fprintf (stdout, "catanhl: %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = ccosl (ca);
-  fprintf (stdout, "ccosl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = ccoshl (ca);
-  fprintf (stdout, "ccoshl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = cexpl (ca);
-  fprintf (stdout, "cexpl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  f1 = cimagl (ca);
-  fprintf (stdout, "cimagl : %Lf\n", f1);
-
-  cc = clogl (ca);
-  fprintf (stdout, "clogl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = conjl (ca);
-  fprintf (stdout, "conjl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = cpowl (ca, cb);
-  fprintf (stdout, "cpowl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = cprojl (ca);
-  fprintf (stdout, "cprojl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  f1 = creall (ca);
-  fprintf (stdout, "creall : %Lf\n", f1);
-
-  cc = csinl (ca);
-  fprintf (stdout, "csinl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = csinhl (ca);
-  fprintf (stdout, "csinhl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-
-  cc = csqrtl (ca);
-  fprintf (stdout, "csqrtl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
+#ifdef NO_LONG_DOUBLE
+  #define PROVIDE_EMPTY_FUNC
+#endif
 
-  cc = ctanl (ca);
-  fprintf (stdout, "ctanl  : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
+#define SUFFIX l
+#define FTYPE long double
+#define PRI "%Lf"
 
-  cc = ctanhl (ca);
-  fprintf (stdout, "ctanhl : %Lf %Lfi\n", creall (cc),
-	   cimagl (cc));
-#endif
-}
+#include "docomplex.h"