1 /* Origin: trampoline-1.c Waldek Hebisch <hebisch@math.uni.wroc.pl> */
2 /* Ported to test -Wtrampolines Magnus Granberg <zorry@gentoo.org> */
3
4 /* { dg-do compile } */
5 /* { dg-require-effective-target trampolines } */
6 /* { dg-options "-O2 -Wtrampolines" } */
7
8 /* This used to fail on various versions of Solaris 2 because the
9 trampoline couldn't be made executable. */
10
11 extern void abort(void);
12 extern double fabs(double);
13
foo(void)14 void foo (void)
15 {
16 const int correct[1100] = {1, 0, -2, 0, 1, 0, 1, -1, -10, -30, -67};
17 int i;
18
19 double x1 (void) {return 1; }
20 double x2 (void) {return -1;}
21 double x3 (void) {return -1;}
22 double x4 (void) {return 1; }
23 double x5 (void) {return 0; }
24
25 typedef double pfun(void);
26
27 double a (int k, pfun x1, pfun x2, pfun x3, pfun x4, pfun x5)
28 {
29 double b (void) /* { dg-warning "trampoline generated for nested function 'b'" "standard descriptors" { xfail { { ia64-*-* *-*-aix* } || { powerpc*-*-* && lp64 } } } } */
30 {
31 k = k - 1;
32 return a (k, b, x1, x2, x3, x4 );
33 }
34
35 if (k <= 0)
36 return x4 () + x5 ();
37 else
38 return b ();
39 }
40
41 for (i=0; i<=10; i++)
42 {
43 if (fabs(a( i, x1, x2, x3, x4, x5 ) - correct [i]) > 0.1)
44 abort();
45 }
46 }
47
main(void)48 int main (void)
49 {
50 foo ();
51
52 return 0;
53 }
54