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

     1  double
     2  f(double x)
     3  {
     4    return x*x;
     5  }
     6  
     7  double
     8  Int(double (*f)(double), double a)
     9  {
    10    return (*f)(a);
    11  }
    12  
    13  main()
    14  {
    15    if (Int(&f,2.0) != 4.0)
    16      abort();
    17    exit (0);
    18  }