Fix unused warnings.
[official-gcc/graphite-test-results.git] / gcc / testsuite / gcc.c-torture / execute / 921208-1.c
blob143ef63b0c9c0d9fac1e5d2b7a9004e27d07c602
1 double
2 f(double x)
4 return x*x;
7 double
8 Int(double (*f)(double), double a)
10 return (*f)(a);
13 main()
15 if (Int(&f,2.0) != 4.0)
16 abort();
17 exit (0);