forked from Imagelibrary/rtems
Revert "libtests/complex: Avoid generated files"
This reverts commit a80a108d44.
This commit is contained in:
Ralf Corsépius
@@ -2,10 +2,30 @@ if HAS_COMPLEX
|
|||||||
rtems_tests_PROGRAMS = complex
|
rtems_tests_PROGRAMS = complex
|
||||||
complex_SOURCES = init.c docomplex.c docomplexf.c docomplexl.c
|
complex_SOURCES = init.c docomplex.c docomplexf.c docomplexl.c
|
||||||
endif
|
endif
|
||||||
|
EXTRA_DIST = docomplex.in
|
||||||
|
|
||||||
# FIXME: Skip long double, not yet supported in newlib
|
# FIXME: Skip long double, not yet supported in newlib
|
||||||
complex_CPPFLAGS = $(AM_CPPFLAGS) -DNO_LONG_DOUBLE
|
complex_CPPFLAGS = $(AM_CPPFLAGS) -DNO_LONG_DOUBLE
|
||||||
|
|
||||||
|
docomplex.c: $(srcdir)/docomplex.in
|
||||||
|
sed -e 's,[@]FTYPE[@],double,' \
|
||||||
|
-e 's,[@]FSUFFIX[@], ,g' \
|
||||||
|
-e 's,[@]FGUARD[@],NO_DOUBLE,' \
|
||||||
|
$(srcdir)/docomplex.in > $(srcdir)/docomplex.c
|
||||||
|
|
||||||
|
docomplexf.c: $(srcdir)/docomplex.in
|
||||||
|
sed -e 's,[@]FTYPE[@],float,' \
|
||||||
|
-e 's,[@]FSUFFIX[@],f,g' \
|
||||||
|
-e 's,[@]FGUARD[@],NO_FLOAT,' \
|
||||||
|
$(srcdir)/docomplex.in > $(srcdir)/docomplexf.c
|
||||||
|
|
||||||
|
docomplexl.c: $(srcdir)/docomplex.in
|
||||||
|
sed -e 's,[@]FTYPE[@],long double,' \
|
||||||
|
-e 's,[@]FSUFFIX[@],l,g' \
|
||||||
|
-e 's,%f,%Lf,g' \
|
||||||
|
-e 's,[@]FGUARD[@],NO_LONG_DOUBLE,' \
|
||||||
|
$(srcdir)/docomplex.in > $(srcdir)/docomplexl.c
|
||||||
|
|
||||||
dist_rtems_tests_DATA = complex.scn
|
dist_rtems_tests_DATA = complex.scn
|
||||||
|
|
||||||
include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg
|
include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg
|
||||||
|
|||||||
@@ -14,11 +14,103 @@
|
|||||||
#include "config.h"
|
#include "config.h"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef NO_DOUBLE
|
#include <complex.h>
|
||||||
#define PROVIDE_EMPTY_FUNC
|
#include <stdio.h>
|
||||||
|
|
||||||
|
extern void docomplex (void);
|
||||||
|
|
||||||
|
void
|
||||||
|
docomplex (void)
|
||||||
|
{
|
||||||
|
#ifndef NO_DOUBLE
|
||||||
|
complex double ca, cb, cc;
|
||||||
|
double f1;
|
||||||
|
|
||||||
|
ca = 1.0 + 1.0 * I;
|
||||||
|
cb = 1.0 - 1.0 * I;
|
||||||
|
|
||||||
|
f1 = cabs (ca);
|
||||||
|
fprintf (stdout, "cabs : %f\n", f1);
|
||||||
|
|
||||||
|
cc = cacos (ca);
|
||||||
|
fprintf (stdout, "cacos : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = cacosh (ca);
|
||||||
|
fprintf (stdout, "cacosh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
f1 = carg (ca);
|
||||||
|
fprintf (stdout, "carg : %f\n", f1);
|
||||||
|
|
||||||
|
cc = casin (ca);
|
||||||
|
fprintf (stdout, "casin : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = casinh (ca);
|
||||||
|
fprintf (stdout, "casinh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = catan (ca);
|
||||||
|
fprintf (stdout, "catan : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = catanh (ca);
|
||||||
|
fprintf (stdout, "catanh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = ccos (ca);
|
||||||
|
fprintf (stdout, "ccos : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = ccosh (ca);
|
||||||
|
fprintf (stdout, "ccosh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = cexp (ca);
|
||||||
|
fprintf (stdout, "cexp : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
f1 = cimag (ca);
|
||||||
|
fprintf (stdout, "cimag : %f\n", f1);
|
||||||
|
|
||||||
|
cc = clog (ca);
|
||||||
|
fprintf (stdout, "clog : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = conj (ca);
|
||||||
|
fprintf (stdout, "conj : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = cpow (ca, cb);
|
||||||
|
fprintf (stdout, "cpow : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = cproj (ca);
|
||||||
|
fprintf (stdout, "cproj : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
f1 = creal (ca);
|
||||||
|
fprintf (stdout, "creal : %f\n", f1);
|
||||||
|
|
||||||
|
cc = csin (ca);
|
||||||
|
fprintf (stdout, "csin : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = csinh (ca);
|
||||||
|
fprintf (stdout, "csinh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = csqrt (ca);
|
||||||
|
fprintf (stdout, "csqrt : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = ctan (ca);
|
||||||
|
fprintf (stdout, "ctan : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
|
|
||||||
|
cc = ctanh (ca);
|
||||||
|
fprintf (stdout, "ctanh : %f %fi\n", creal (cc),
|
||||||
|
cimag (cc));
|
||||||
#endif
|
#endif
|
||||||
|
}
|
||||||
#define FTYPE double
|
|
||||||
#define PRI "%f"
|
|
||||||
|
|
||||||
#include "docomplex.h"
|
|
||||||
|
|||||||
@@ -1,122 +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.
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <complex.h>
|
|
||||||
#include <stdio.h>
|
|
||||||
|
|
||||||
#define CONCAT(x, y) x ## y
|
|
||||||
#define XCONCAT(x, y) CONCAT(x, y)
|
|
||||||
|
|
||||||
#define STRINGIFY(x, y) # x # y
|
|
||||||
#define XSTRINGIFY(x, y) STRINGIFY(x, y)
|
|
||||||
|
|
||||||
#ifdef SUFFIX
|
|
||||||
#define FUNC(name) XCONCAT(name, SUFFIX)
|
|
||||||
#define STR(name) XSTRINGIFY(name, SUFFIX)
|
|
||||||
#else
|
|
||||||
#define FUNC(name) XCONCAT(name, )
|
|
||||||
#define STR(name) XSTRINGIFY(name, ) " "
|
|
||||||
#endif
|
|
||||||
|
|
||||||
extern void FUNC(docomplex) (void);
|
|
||||||
|
|
||||||
void
|
|
||||||
FUNC(docomplex) (void)
|
|
||||||
{
|
|
||||||
#ifndef PROVIDE_EMPTY_FUNC
|
|
||||||
complex FTYPE ca, cb, cc;
|
|
||||||
FTYPE f1;
|
|
||||||
|
|
||||||
ca = 1.0 + 1.0 * I;
|
|
||||||
cb = 1.0 - 1.0 * I;
|
|
||||||
|
|
||||||
f1 = FUNC(cabs) (ca);
|
|
||||||
fprintf (stdout, STR(cabs) " : " PRI "\n", f1);
|
|
||||||
|
|
||||||
cc = FUNC(cacos) (ca);
|
|
||||||
fprintf (stdout, STR(cacos) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(cacosh) (ca);
|
|
||||||
fprintf (stdout, STR(cacosh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
f1 = FUNC(carg) (ca);
|
|
||||||
fprintf (stdout, STR(carg) " : " PRI "\n", f1);
|
|
||||||
|
|
||||||
cc = FUNC(casin) (ca);
|
|
||||||
fprintf (stdout, STR(casin) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(casinh) (ca);
|
|
||||||
fprintf (stdout, STR(casinh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(catan) (ca);
|
|
||||||
fprintf (stdout, STR(catan) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(catanh) (ca);
|
|
||||||
fprintf (stdout, STR(catanh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(ccos) (ca);
|
|
||||||
fprintf (stdout, STR(ccos) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(ccosh) (ca);
|
|
||||||
fprintf (stdout, STR(ccosh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(cexp) (ca);
|
|
||||||
fprintf (stdout, STR(cexp) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
f1 = FUNC(cimag) (ca);
|
|
||||||
fprintf (stdout, STR(cimag) " : " PRI "\n", f1);
|
|
||||||
|
|
||||||
cc = FUNC(clog) (ca);
|
|
||||||
fprintf (stdout, STR(clog) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(conj) (ca);
|
|
||||||
fprintf (stdout, STR(conj) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(cpow) (ca, cb);
|
|
||||||
fprintf (stdout, STR(cpow) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(cproj) (ca);
|
|
||||||
fprintf (stdout, STR(cproj) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
f1 = FUNC(creal) (ca);
|
|
||||||
fprintf (stdout, STR(creal) " : " PRI "\n", f1);
|
|
||||||
|
|
||||||
cc = FUNC(csin) (ca);
|
|
||||||
fprintf (stdout, STR(csin) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(csinh) (ca);
|
|
||||||
fprintf (stdout, STR(csinh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(csqrt) (ca);
|
|
||||||
fprintf (stdout, STR(csqrt) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(ctan) (ca);
|
|
||||||
fprintf (stdout, STR(ctan) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
|
|
||||||
cc = FUNC(ctanh) (ca);
|
|
||||||
fprintf (stdout, STR(ctanh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
|
|
||||||
FUNC(cimag) (cc));
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
116
testsuites/libtests/complex/docomplex.in
Normal file
116
testsuites/libtests/complex/docomplex.in
Normal file
@@ -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
|
||||||
|
}
|
||||||
@@ -14,12 +14,103 @@
|
|||||||
#include "config.h"
|
#include "config.h"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef NO_FLOAT
|
#include <complex.h>
|
||||||
#define PROVIDE_EMPTY_FUNC
|
#include <stdio.h>
|
||||||
|
|
||||||
|
extern void docomplexf (void);
|
||||||
|
|
||||||
|
void
|
||||||
|
docomplexf (void)
|
||||||
|
{
|
||||||
|
#ifndef NO_FLOAT
|
||||||
|
complex float ca, cb, cc;
|
||||||
|
float f1;
|
||||||
|
|
||||||
|
ca = 1.0 + 1.0 * I;
|
||||||
|
cb = 1.0 - 1.0 * I;
|
||||||
|
|
||||||
|
f1 = cabsf (ca);
|
||||||
|
fprintf (stdout, "cabsf : %f\n", f1);
|
||||||
|
|
||||||
|
cc = cacosf (ca);
|
||||||
|
fprintf (stdout, "cacosf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = cacoshf (ca);
|
||||||
|
fprintf (stdout, "cacoshf: %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
f1 = cargf (ca);
|
||||||
|
fprintf (stdout, "cargf : %f\n", f1);
|
||||||
|
|
||||||
|
cc = casinf (ca);
|
||||||
|
fprintf (stdout, "casinf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = casinhf (ca);
|
||||||
|
fprintf (stdout, "casinhf: %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = catanf (ca);
|
||||||
|
fprintf (stdout, "catanf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = catanhf (ca);
|
||||||
|
fprintf (stdout, "catanhf: %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = ccosf (ca);
|
||||||
|
fprintf (stdout, "ccosf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = ccoshf (ca);
|
||||||
|
fprintf (stdout, "ccoshf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = cexpf (ca);
|
||||||
|
fprintf (stdout, "cexpf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
f1 = cimagf (ca);
|
||||||
|
fprintf (stdout, "cimagf : %f\n", f1);
|
||||||
|
|
||||||
|
cc = clogf (ca);
|
||||||
|
fprintf (stdout, "clogf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = conjf (ca);
|
||||||
|
fprintf (stdout, "conjf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = cpowf (ca, cb);
|
||||||
|
fprintf (stdout, "cpowf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = cprojf (ca);
|
||||||
|
fprintf (stdout, "cprojf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
f1 = crealf (ca);
|
||||||
|
fprintf (stdout, "crealf : %f\n", f1);
|
||||||
|
|
||||||
|
cc = csinf (ca);
|
||||||
|
fprintf (stdout, "csinf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = csinhf (ca);
|
||||||
|
fprintf (stdout, "csinhf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = csqrtf (ca);
|
||||||
|
fprintf (stdout, "csqrtf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = ctanf (ca);
|
||||||
|
fprintf (stdout, "ctanf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
|
|
||||||
|
cc = ctanhf (ca);
|
||||||
|
fprintf (stdout, "ctanhf : %f %fi\n", crealf (cc),
|
||||||
|
cimagf (cc));
|
||||||
#endif
|
#endif
|
||||||
|
}
|
||||||
#define SUFFIX f
|
|
||||||
#define FTYPE float
|
|
||||||
#define PRI "%f"
|
|
||||||
|
|
||||||
#include "docomplex.h"
|
|
||||||
|
|||||||
@@ -14,12 +14,103 @@
|
|||||||
#include "config.h"
|
#include "config.h"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef NO_LONG_DOUBLE
|
#include <complex.h>
|
||||||
#define PROVIDE_EMPTY_FUNC
|
#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));
|
||||||
|
|
||||||
|
cc = ctanl (ca);
|
||||||
|
fprintf (stdout, "ctanl : %Lf %Lfi\n", creall (cc),
|
||||||
|
cimagl (cc));
|
||||||
|
|
||||||
|
cc = ctanhl (ca);
|
||||||
|
fprintf (stdout, "ctanhl : %Lf %Lfi\n", creall (cc),
|
||||||
|
cimagl (cc));
|
||||||
#endif
|
#endif
|
||||||
|
}
|
||||||
#define SUFFIX l
|
|
||||||
#define FTYPE long double
|
|
||||||
#define PRI "%Lf"
|
|
||||||
|
|
||||||
#include "docomplex.h"
|
|
||||||
|
|||||||
@@ -31,7 +31,9 @@
|
|||||||
|
|
||||||
extern void docomplex(void);
|
extern void docomplex(void);
|
||||||
extern void docomplexf(void);
|
extern void docomplexf(void);
|
||||||
|
#ifndef NO_LONG_DOUBLE
|
||||||
extern void docomplexl(void);
|
extern void docomplexl(void);
|
||||||
|
#endif
|
||||||
|
|
||||||
#if __rtems__
|
#if __rtems__
|
||||||
/* NOTICE: the clock driver is explicitly disabled */
|
/* NOTICE: the clock driver is explicitly disabled */
|
||||||
@@ -58,7 +60,9 @@ int main( void )
|
|||||||
|
|
||||||
docomplex();
|
docomplex();
|
||||||
docomplexf();
|
docomplexf();
|
||||||
|
#ifndef NO_LONG_DOUBLE
|
||||||
docomplexl();
|
docomplexl();
|
||||||
|
#endif
|
||||||
fprintf( stdout, "*** END OF COMPLEX MATH TEST ***\n" );
|
fprintf( stdout, "*** END OF COMPLEX MATH TEST ***\n" );
|
||||||
exit( 0 );
|
exit( 0 );
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user