summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/execute/921208-1.c
blob: 143ef63b0c9c0d9fac1e5d2b7a9004e27d07c602 (plain)
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);
}