gcc/testsuite/gcc.c-torture/execute/20000822-1.c

   1 /* { dg-require-effective-target trampolines } */
   2
   3 void abort (void);
   4
   5 int f0(int (*fn)(int *), int *p)
   6 {
   7   return (*fn) (p);
   8 }
   9
  10 int f1(void)
  11 {
  12   int i = 0;
  13
  14   int f2(int *p)
  15   {
  16     i = 1;
  17     return *p + 1;
  18   }
  19
  20   return f0(f2, &i);
  21 }
  22
  23 int main()
  24 {
  25   if (f1() != 2)
  26     abort ();
  27
  28   return 0;
  29 }