1 #include "compat-common.h"
2
3 #define T(TYPE) \
4 TYPE g01##TYPE, g02##TYPE, g03##TYPE, g04##TYPE; \
5 TYPE g05##TYPE, g06##TYPE, g07##TYPE, g08##TYPE; \
6 TYPE g09##TYPE, g10##TYPE, g11##TYPE, g12##TYPE; \
7 TYPE g13##TYPE, g14##TYPE, g15##TYPE, g16##TYPE; \
8 \
9 extern void init##TYPE (TYPE *p, double y); \
10 extern void checkg##TYPE (void); \
11 extern TYPE test0##TYPE (void); \
12 extern TYPE test1##TYPE (TYPE); \
13 extern TYPE testva##TYPE (int n, ...); \
14 \
15 void \
16 testit##TYPE (void) \
17 { \
18 TYPE rslt; \
19 DEBUG_FPUTS (#TYPE); \
20 DEBUG_FPUTS (" init: "); \
21 init##TYPE (&g01##TYPE, 1.0); \
22 init##TYPE (&g02##TYPE, 2.0); \
23 init##TYPE (&g03##TYPE, 3.0); \
24 init##TYPE (&g04##TYPE, 4.0); \
25 init##TYPE (&g05##TYPE, 5.0); \
26 init##TYPE (&g06##TYPE, 6.0); \
27 init##TYPE (&g07##TYPE, 7.0); \
28 init##TYPE (&g08##TYPE, 8.0); \
29 init##TYPE (&g09##TYPE, 9.0); \
30 init##TYPE (&g10##TYPE, 10.0); \
31 init##TYPE (&g11##TYPE, 11.0); \
32 init##TYPE (&g12##TYPE, 12.0); \
33 init##TYPE (&g13##TYPE, 13.0); \
34 init##TYPE (&g14##TYPE, 14.0); \
35 init##TYPE (&g15##TYPE, 15.0); \
36 init##TYPE (&g16##TYPE, 16.0); \
37 checkg##TYPE (); \
38 DEBUG_NL; \
39 DEBUG_FPUTS (#TYPE); \
40 DEBUG_FPUTS (" test0: "); \
41 rslt = test0##TYPE (); \
42 check##TYPE (rslt, 1.0); \
43 DEBUG_NL; \
44 DEBUG_FPUTS (#TYPE); \
45 DEBUG_FPUTS (" test1: "); \
46 rslt = test1##TYPE (g01##TYPE); \
47 check##TYPE (rslt, 1.0); \
48 DEBUG_NL; \
49 DEBUG_FPUTS (#TYPE); \
50 DEBUG_FPUTS (" testva:"); \
51 rslt = testva##TYPE (1, g01##TYPE); \
52 check##TYPE (rslt, 1.0); \
53 rslt = testva##TYPE (5, g01##TYPE, g02##TYPE, \
54 g03##TYPE, g04##TYPE, \
55 g05##TYPE); \
56 check##TYPE (rslt, 5.0); \
57 rslt = testva##TYPE (9, g01##TYPE, g02##TYPE, \
58 g03##TYPE, g04##TYPE, \
59 g05##TYPE, g06##TYPE, \
60 g07##TYPE, g08##TYPE, \
61 g09##TYPE); \
62 check##TYPE (rslt, 9.0); \
63 rslt = testva##TYPE (16, g01##TYPE, g02##TYPE, \
64 g03##TYPE, g04##TYPE, \
65 g05##TYPE, g06##TYPE, \
66 g07##TYPE, g08##TYPE, \
67 g09##TYPE, g10##TYPE, \
68 g11##TYPE, g12##TYPE, \
69 g13##TYPE, g14##TYPE, \
70 g15##TYPE, g16##TYPE); \
71 check##TYPE (rslt, 16.0); \
72 DEBUG_NL; \
73 }
74
75 #include "fp2-struct-defs.h"
76 #include "fp2-struct-check.h"
77
78 T(Sfd)
T(Sfl)79 T(Sfl)
80 T(Sdf)
81 T(Sdl)
82 T(Slf)
83 T(Sld)
84 T(Sfdl)
85 T(Sfld)
86 T(Sdfl)
87 T(Sdlf)
88 T(Slfd)
89 T(Sldf)
90
91 #undef T
92
93 void
94 struct_return_10_x ()
95 {
96 DEBUG_INIT
97
98 #define T(TYPE) testit##TYPE ();
99
100 T(Sfd);
101 T(Sfl);
102 T(Sdf);
103 T(Sdl);
104 T(Slf);
105 T(Sld);
106 T(Sfdl);
107 T(Sfld);
108 T(Sdfl);
109 T(Sdlf);
110 T(Slfd);
111 T(Sldf);
112
113 DEBUG_FINI
114
115 if (fails != 0)
116 return;
117
118 #undef T
119 }
120