8sa1-gcc/gcc/testsuite/gcc.c-torture/execute/921208-1.c
Jeff Law 921e5a0eb4 Initial revision
From-SVN: r14840
1997-08-19 01:34:40 -06:00

19 lines
165 B
C

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);
}