gcc/testsuite/gcc.c-torture/execute/func-ptr-1.c

   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 }