|
111
|
1 /* { dg-skip-if "requires io" { freestanding } } */
|
|
|
2
|
|
|
3 /* This test tests complex conjugate and passing/returning of
|
|
|
4 complex parameter. */
|
|
|
5
|
|
|
6 #include <stdlib.h>
|
|
|
7 #include <stdio.h>
|
|
|
8
|
|
145
|
9 int e;
|
|
111
|
10
|
|
|
11 #define TEST(TYPE, FUNC) \
|
|
|
12 __complex__ TYPE \
|
|
|
13 ctest_ ## FUNC (__complex__ TYPE x) \
|
|
|
14 { \
|
|
|
15 __complex__ TYPE res; \
|
|
|
16 \
|
|
|
17 res = ~x; \
|
|
|
18 \
|
|
|
19 return res; \
|
|
|
20 } \
|
|
|
21 \
|
|
|
22 void \
|
|
|
23 test_ ## FUNC (void) \
|
|
|
24 { \
|
|
|
25 __complex__ TYPE res, x; \
|
|
|
26 \
|
|
|
27 x = 1.0 + 2.0i; \
|
|
|
28 \
|
|
|
29 res = ctest_ ## FUNC (x); \
|
|
|
30 \
|
|
|
31 if (res != 1.0 - 2.0i) \
|
|
|
32 { \
|
|
|
33 printf ("test_" #FUNC " failed\n"); \
|
|
145
|
34 ++e; \
|
|
111
|
35 } \
|
|
|
36 }
|
|
|
37
|
|
|
38
|
|
|
39 TEST(float, float)
|
|
|
40 TEST(double, double)
|
|
|
41 TEST(long double, long_double)
|
|
|
42 TEST(int, int)
|
|
|
43 TEST(long int, long_int)
|
|
|
44
|
|
|
45 int
|
|
|
46 main (void)
|
|
|
47 {
|
|
|
48
|
|
145
|
49 e = 0;
|
|
111
|
50
|
|
|
51 test_float ();
|
|
|
52 test_double ();
|
|
|
53 test_long_double ();
|
|
|
54 test_int ();
|
|
|
55 test_long_int ();
|
|
|
56
|
|
145
|
57 if (e != 0)
|
|
111
|
58 abort ();
|
|
|
59
|
|
|
60 return 0;
|
|
|
61 }
|
