URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [fnptr-by-value-1_x.c] - Blame information for rev 12

Details | Compare with Previous | View Log


#include "compat-common.h"
 
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
 
typedef void (*fpi)(int);
typedef void (*fpd)(double);
 
extern void test1a (fpi);
extern void test1b (fpi, int);
extern void test1c (double, fpd);
extern void test2a (fpi, fpd);
extern void test2b (fpi, fpd, int);
extern void test2c (fpi, int, fpd);
extern void test2d (int, fpi, fpd);
extern void test2e (fpi, fpd, int, double);
extern void test2f (fpi, int, fpd, double);
extern void test2g (fpi, int, double, fpd);
extern void test2h (double, fpd, fpi, int);
extern void test2i (double, fpd, int, fpi);
extern void test2j (int, double, fpi, fpd);
extern void testva (int, ...);
 
int f1_val;
double f2_val;
 
void f1 (int i) { f1_val = i; }
void f2 (double x) { f2_val = x; }
 
void
checki (int x, int v)
{
  if (x != v)
    DEBUG_CHECK
}
 
void
checkd (double x, double v)
{
  if (x != v)
    DEBUG_CHECK
}
 
void
testit (void)
{
  DEBUG_FPUTS ("test1a: ");
  test1a (f1);
  checki (f1_val, 1);
  DEBUG_NL;
  DEBUG_FPUTS ("test1b: ");
  test1b (f1, 2);
  checki (f1_val, 2);
  DEBUG_NL;
  DEBUG_FPUTS ("test1c: ");
  test1c (3.0, f2);
  checkd (f2_val, 3.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2a: ");
  test2a (f1, f2);
  checki (f1_val, 10);
  checkd (f2_val, 10.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2b: ");
  test2b (f1, f2, 11);
  checki (f1_val, 11);
  checkd (f2_val, 11.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2c: ");
  test2c (f1, 12, f2);
  checki (f1_val, 12);
  checkd (f2_val, 12.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2d: ");
  test2d (13, f1, f2);
  checki (f1_val, 13);
  checkd (f2_val, 13.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2e: ");
  test2e (f1, f2, 14, 15.0);
  checki (f1_val, 14);
  checkd (f2_val, 15.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2f: ");
  test2f (f1, 16, f2, 17.0);
  checki (f1_val, 16);
  checkd (f2_val, 17.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2g: ");
  test2g (f1, 18, 19.0, f2);
  checki (f1_val, 18);
  checkd (f2_val, 19.0);
  DEBUG_NL;
  DEBUG_FPUTS ("test2h: ");
  test2h (20.0, f2, f1, 21);
  checkd (f2_val, 20.0);
  checki (f1_val, 21);
  DEBUG_NL;
  DEBUG_FPUTS ("test2i: ");
  test2i (22.0, f2, 23, f1);
  checkd (f2_val, 22.0);
  checki (f1_val, 23);
  DEBUG_NL;
  DEBUG_FPUTS ("test2j: ");
  test2j (24, 25.0, f1, f2);
  checki (f1_val, 24);
  checkd (f2_val, 25.0);
  if (test_va)
    {
      DEBUG_NL;
      DEBUG_FPUTS ("testva: ");
      testva (1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (2, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (3, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (4, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (5, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (6, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (7, f1, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (8, f1, f1, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (9, f1, f1, f1, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (10, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (11, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
      DEBUG_NL;
      DEBUG_FPUTS ("        ");
      testva (12, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
    }
  DEBUG_NL;
}
 
void
fnptr_by_value_1_x ()
{
  DEBUG_INIT
  testit ();
  DEBUG_FINI
 
  if (fails != 0)
    abort ();
}

Line No.	Rev	Author	Line
1	12	jlechner	`#include "compat-common.h"`
2
3			`#ifdef SKIP_VA`
4			`const int test_va = 0;`
5			`#else`
6			`const int test_va = 1;`
7			`#endif`
8
9			`typedef void (*fpi)(int);`
10			`typedef void (*fpd)(double);`
11
12			`extern void test1a (fpi);`
13			`extern void test1b (fpi, int);`
14			`extern void test1c (double, fpd);`
15			`extern void test2a (fpi, fpd);`
16			`extern void test2b (fpi, fpd, int);`
17			`extern void test2c (fpi, int, fpd);`
18			`extern void test2d (int, fpi, fpd);`
19			`extern void test2e (fpi, fpd, int, double);`
20			`extern void test2f (fpi, int, fpd, double);`
21			`extern void test2g (fpi, int, double, fpd);`
22			`extern void test2h (double, fpd, fpi, int);`
23			`extern void test2i (double, fpd, int, fpi);`
24			`extern void test2j (int, double, fpi, fpd);`
25			`extern void testva (int, ...);`
26
27			`int f1_val;`
28			`double f2_val;`
29
30			`void f1 (int i) { f1_val = i; }`
31			`void f2 (double x) { f2_val = x; }`
32
33			`void`
34			`checki (int x, int v)`
35			`{`
36			`if (x != v)`
37			`DEBUG_CHECK`
38			`}`
39
40			`void`
41			`checkd (double x, double v)`
42			`{`
43			`if (x != v)`
44			`DEBUG_CHECK`
45			`}`
46
47			`void`
48			`testit (void)`
49			`{`
50			`DEBUG_FPUTS ("test1a: ");`
51			`test1a (f1);`
52			`checki (f1_val, 1);`
53			`DEBUG_NL;`
54			`DEBUG_FPUTS ("test1b: ");`
55			`test1b (f1, 2);`
56			`checki (f1_val, 2);`
57			`DEBUG_NL;`
58			`DEBUG_FPUTS ("test1c: ");`
59			`test1c (3.0, f2);`
60			`checkd (f2_val, 3.0);`
61			`DEBUG_NL;`
62			`DEBUG_FPUTS ("test2a: ");`
63			`test2a (f1, f2);`
64			`checki (f1_val, 10);`
65			`checkd (f2_val, 10.0);`
66			`DEBUG_NL;`
67			`DEBUG_FPUTS ("test2b: ");`
68			`test2b (f1, f2, 11);`
69			`checki (f1_val, 11);`
70			`checkd (f2_val, 11.0);`
71			`DEBUG_NL;`
72			`DEBUG_FPUTS ("test2c: ");`
73			`test2c (f1, 12, f2);`
74			`checki (f1_val, 12);`
75			`checkd (f2_val, 12.0);`
76			`DEBUG_NL;`
77			`DEBUG_FPUTS ("test2d: ");`
78			`test2d (13, f1, f2);`
79			`checki (f1_val, 13);`
80			`checkd (f2_val, 13.0);`
81			`DEBUG_NL;`
82			`DEBUG_FPUTS ("test2e: ");`
83			`test2e (f1, f2, 14, 15.0);`
84			`checki (f1_val, 14);`
85			`checkd (f2_val, 15.0);`
86			`DEBUG_NL;`
87			`DEBUG_FPUTS ("test2f: ");`
88			`test2f (f1, 16, f2, 17.0);`
89			`checki (f1_val, 16);`
90			`checkd (f2_val, 17.0);`
91			`DEBUG_NL;`
92			`DEBUG_FPUTS ("test2g: ");`
93			`test2g (f1, 18, 19.0, f2);`
94			`checki (f1_val, 18);`
95			`checkd (f2_val, 19.0);`
96			`DEBUG_NL;`
97			`DEBUG_FPUTS ("test2h: ");`
98			`test2h (20.0, f2, f1, 21);`
99			`checkd (f2_val, 20.0);`
100			`checki (f1_val, 21);`
101			`DEBUG_NL;`
102			`DEBUG_FPUTS ("test2i: ");`
103			`test2i (22.0, f2, 23, f1);`
104			`checkd (f2_val, 22.0);`
105			`checki (f1_val, 23);`
106			`DEBUG_NL;`
107			`DEBUG_FPUTS ("test2j: ");`
108			`test2j (24, 25.0, f1, f2);`
109			`checki (f1_val, 24);`
110			`checkd (f2_val, 25.0);`
111			`if (test_va)`
112			`{`
113			`DEBUG_NL;`
114			`DEBUG_FPUTS ("testva: ");`
115			`testva (1, f1);`
116			`DEBUG_NL;`
117			`DEBUG_FPUTS (" ");`
118			`testva (2, f1, f1);`
119			`DEBUG_NL;`
120			`DEBUG_FPUTS (" ");`
121			`testva (3, f1, f1, f1);`
122			`DEBUG_NL;`
123			`DEBUG_FPUTS (" ");`
124			`testva (4, f1, f1, f1, f1);`
125			`DEBUG_NL;`
126			`DEBUG_FPUTS (" ");`
127			`testva (5, f1, f1, f1, f1, f1);`
128			`DEBUG_NL;`
129			`DEBUG_FPUTS (" ");`
130			`testva (6, f1, f1, f1, f1, f1, f1);`
131			`DEBUG_NL;`
132			`DEBUG_FPUTS (" ");`
133			`testva (7, f1, f1, f1, f1, f1, f1, f1);`
134			`DEBUG_NL;`
135			`DEBUG_FPUTS (" ");`
136			`testva (8, f1, f1, f1, f1, f1, f1, f1, f1);`
137			`DEBUG_NL;`
138			`DEBUG_FPUTS (" ");`
139			`testva (9, f1, f1, f1, f1, f1, f1, f1, f1, f1);`
140			`DEBUG_NL;`
141			`DEBUG_FPUTS (" ");`
142			`testva (10, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);`
143			`DEBUG_NL;`
144			`DEBUG_FPUTS (" ");`
145			`testva (11, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);`
146			`DEBUG_NL;`
147			`DEBUG_FPUTS (" ");`
148			`testva (12, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);`
149			`}`
150			`DEBUG_NL;`
151			`}`
152
153			`void`
154			`fnptr_by_value_1_x ()`
155			`{`
156			`DEBUG_INIT`
157			`testit ();`
158			`DEBUG_FINI`
159
160			`if (fails != 0)`
161			`abort ();`
162			`}`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [fnptr-by-value-1_x.c] - Blame information for rev 12