1 #include "compat-common.h"
3 /* Turn off checking for variable arguments with -DSKIPVA. */
10 typedef void (*fpi)(int);
11 typedef void (*fpd)(double);
13 extern void test1a (fpi);
14 extern void test1b (fpi, int);
15 extern void test1c (double, fpd);
16 extern void test2a (fpi, fpd);
17 extern void test2b (fpi, fpd, int);
18 extern void test2c (fpi, int, fpd);
19 extern void test2d (int, fpi, fpd);
20 extern void test2e (fpi, fpd, int, double);
21 extern void test2f (fpi, int, fpd, double);
22 extern void test2g (fpi, int, double, fpd);
23 extern void test2h (double, fpd, fpi, int);
24 extern void test2i (double, fpd, int, fpi);
25 extern void test2j (int, double, fpi, fpd);
30 void f1 (int i) { f1_val = i; }
31 void f2 (double x) { f2_val = x; }
41 checkd (double x, double v)
50 DEBUG_FPUTS ("test1a: ");
54 DEBUG_FPUTS ("test1b: ");
58 DEBUG_FPUTS ("test1c: ");
62 DEBUG_FPUTS ("test2a: ");
65 checkd (f2_val, 10.0);
67 DEBUG_FPUTS ("test2b: ");
70 checkd (f2_val, 11.0);
72 DEBUG_FPUTS ("test2c: ");
75 checkd (f2_val, 12.0);
77 DEBUG_FPUTS ("test2d: ");
80 checkd (f2_val, 13.0);
82 DEBUG_FPUTS ("test2e: ");
83 test2e (f1, f2, 14, 15.0);
85 checkd (f2_val, 15.0);
87 DEBUG_FPUTS ("test2f: ");
88 test2f (f1, 16, f2, 17.0);
90 checkd (f2_val, 17.0);
92 DEBUG_FPUTS ("test2g: ");
93 test2g (f1, 18, 19.0, f2);
95 checkd (f2_val, 19.0);
97 DEBUG_FPUTS ("test2h: ");
98 test2h (20.0, f2, f1, 21);
99 checkd (f2_val, 20.0);
102 DEBUG_FPUTS ("test2i: ");
103 test2i (22.0, f2, 23, f1);
104 checkd (f2_val, 22.0);
107 DEBUG_FPUTS ("test2j: ");
108 test2j (24, 25.0, f1, f2);
110 checkd (f2_val, 25.0);
114 DEBUG_FPUTS ("testva: ");
121 testva (3, f1, f1, f1);
124 testva (4, f1, f1, f1, f1);
127 testva (5, f1, f1, f1, f1, f1);
130 testva (6, f1, f1, f1, f1, f1, f1);
133 testva (7, f1, f1, f1, f1, f1, f1, f1);
136 testva (8, f1, f1, f1, f1, f1, f1, f1, f1);
139 testva (9, f1, f1, f1, f1, f1, f1, f1, f1, f1);
142 testva (10, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
145 testva (11, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
148 testva (12, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
154 fnptr_by_value_1_x ()