1 #include "compat-common.h"
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; \
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, ...); \
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); \
39 DEBUG_FPUTS (#TYPE); \
40 DEBUG_FPUTS (" test0: "); \
41 rslt = test0##TYPE (); \
42 check##TYPE (rslt, 1.0); \
44 DEBUG_FPUTS (#TYPE); \
45 DEBUG_FPUTS (" test1: "); \
46 rslt = test1##TYPE (g01##TYPE); \
47 check##TYPE (rslt, 1.0); \
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, \
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, \
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); \
75 #include "fp2-struct-defs.h"
76 #include "fp2-struct-check.h"
98 #define T(TYPE) testit##TYPE ();