gcc-4.9/gcc/testsuite/gcc.c-torture/execute/921208-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

double
f(double x)
{
  return x*x;
}

double
Int(double (*f)(double), double a)
{
  return (*f)(a);
}

main()
{
  if (Int(&f,2.0) != 4.0)
    abort();
  exit (0);
}