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

     1  static double f (float a);
     2  static double (*fp) (float a);
     3  
     4  main ()
     5  {
     6    fp = f;
     7    if (fp ((float) 1) != 1.0)
     8      abort ();
     9    exit (0);
    10  }
    11  
    12  static double
    13  f (float a)
    14  {
    15    return a;
    16  }