mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-13 04:29:31 +00:00
17 lines
179 B
C
17 lines
179 B
C
static double f (float a);
|
|
static double (*fp) (float a);
|
|
|
|
main ()
|
|
{
|
|
fp = f;
|
|
if (fp ((float) 1) != 1.0)
|
|
abort ();
|
|
exit (0);
|
|
}
|
|
|
|
static double
|
|
f (float a)
|
|
{
|
|
return a;
|
|
}
|