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  }