modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/nestfunc-1.c (about)

     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  }