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