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

   1 /* { dg-require-effective-target trampolines } */
   2
   3 int
   4 g (int a, int b, int (*gi) (int, int))
   5 {
   6   if ((*gi) (a, b))
   7     return a;
   8   else
   9     return b;
  10 }
  11
  12 f ()
  13 {
  14   int i, j;
  15   int f2 (int a, int b)
  16     {
  17       return a > b;
  18     }
  19
  20   if (g (1, 2, f2) != 2)
  21     abort ();
  22 }
  23
  24 main ()
  25 {
  26   f ();
  27   exit (0);
  28 }