source: rtems/testsuites/libtests/complex/docomplex.h @ 8c1f4064

Last change on this file since 8c1f4064 was 8c1f4064, checked in by Sebastian Huber <sebastian.huber@…>, on Nov 2, 2017 at 12:56:12 PM

tests: Use printf() instead of fprintf()

Update #3170.
Update #3199.

  • Property mode set to 100644
File size: 3.0 KB
Line 
1/*
2 * Copyright (c) 2010, 2011 by
3 * Ralf Corsepius, Ulm/Germany. All rights reserved.
4 *
5 * Permission to use, copy, modify, and distribute this software
6 * is freely granted, provided that this notice is preserved.
7 */
8
9#include <complex.h>
10#include <stdio.h>
11
12#define CONCAT(x, y) x ## y
13#define XCONCAT(x, y) CONCAT(x, y)
14
15#define STRINGIFY(x, y) # x # y
16#define XSTRINGIFY(x, y) STRINGIFY(x, y)
17
18#ifdef SUFFIX
19  #define FUNC(name) XCONCAT(name, SUFFIX)
20  #define STR(name) XSTRINGIFY(name, SUFFIX)
21#else
22  #define FUNC(name) XCONCAT(name, )
23  #define STR(name) XSTRINGIFY(name, ) " "
24#endif
25
26extern void FUNC(docomplex) (void);
27
28static volatile complex FTYPE ca, cb;
29
30void
31FUNC(docomplex) (void)
32{
33#ifndef PROVIDE_EMPTY_FUNC
34  complex FTYPE cc;
35  FTYPE f1;
36
37  ca = 1.0 + 1.0 * I;
38  cb = 1.0 - 1.0 * I;
39
40  f1 = FUNC(cabs) (ca);
41  printf (STR(cabs) "  : " PRI "\n", f1);
42
43  cc = FUNC(cacos) (ca);
44  printf (STR(cacos) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
45           FUNC(cimag) (cc));
46
47  cc = FUNC(cacosh) (ca);
48  printf (STR(cacosh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
49           FUNC(cimag) (cc));
50
51  f1 = FUNC(carg) (ca);
52  printf (STR(carg) "  : " PRI "\n", f1);
53
54  cc = FUNC(casin) (ca);
55  printf (STR(casin) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
56           FUNC(cimag) (cc));
57
58  cc = FUNC(casinh) (ca);
59  printf (STR(casinh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
60           FUNC(cimag) (cc));
61
62  cc = FUNC(catan) (ca);
63  printf (STR(catan) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
64           FUNC(cimag) (cc));
65
66  cc = FUNC(catanh) (ca);
67  printf (STR(catanh) ": " PRI " " PRI "i\n", FUNC(creal) (cc),
68           FUNC(cimag) (cc));
69
70  cc = FUNC(ccos) (ca);
71  printf (STR(ccos) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
72           FUNC(cimag) (cc));
73
74  cc = FUNC(ccosh) (ca);
75  printf (STR(ccosh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
76           FUNC(cimag) (cc));
77
78  cc = FUNC(cexp) (ca);
79  printf (STR(cexp) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
80           FUNC(cimag) (cc));
81
82  f1 = FUNC(cimag) (ca);
83  printf (STR(cimag) " : " PRI "\n", f1);
84
85  cc = FUNC(clog) (ca);
86  printf (STR(clog) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
87           FUNC(cimag) (cc));
88
89  cc = FUNC(conj) (ca);
90  printf (STR(conj) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
91           FUNC(cimag) (cc));
92
93  cc = FUNC(cpow) (ca, cb);
94  printf (STR(cpow) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
95           FUNC(cimag) (cc));
96
97  cc = FUNC(cproj) (ca);
98  printf (STR(cproj) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
99           FUNC(cimag) (cc));
100
101  f1 = FUNC(creal) (ca);
102  printf (STR(creal) " : " PRI "\n", f1);
103
104  cc = FUNC(csin) (ca);
105  printf (STR(csin) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
106           FUNC(cimag) (cc));
107
108  cc = FUNC(csinh) (ca);
109  printf (STR(csinh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
110           FUNC(cimag) (cc));
111
112  cc = FUNC(csqrt) (ca);
113  printf (STR(csqrt) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
114           FUNC(cimag) (cc));
115
116  cc = FUNC(ctan) (ca);
117  printf (STR(ctan) "  : " PRI " " PRI "i\n", FUNC(creal) (cc),
118           FUNC(cimag) (cc));
119
120  cc = FUNC(ctanh) (ca);
121  printf (STR(ctanh) " : " PRI " " PRI "i\n", FUNC(creal) (cc),
122           FUNC(cimag) (cc));
123#endif
124}
Note: See TracBrowser for help on using the repository browser.