mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-05-31 22:41:28 +00:00
21 lines
221 B
C
21 lines
221 B
C
double glob_dbl;
|
|
|
|
f (pdbl, value)
|
|
double *pdbl;
|
|
double value;
|
|
{
|
|
if (pdbl == 0)
|
|
pdbl = &glob_dbl;
|
|
|
|
*pdbl = value;
|
|
}
|
|
|
|
main ()
|
|
{
|
|
f ((void *) 0, 55.1);
|
|
|
|
if (glob_dbl != 55.1)
|
|
abort ();
|
|
exit (0);
|
|
}
|