(root)/
gcc-13.2.0/
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  }