mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-12 13:29:29 +00:00
19 lines
165 B
C
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);
|
|
}
|