1double glob_dbl;
2
3f (pdbl, value)
4     double *pdbl;
5     double value;
6{
7  if (pdbl == 0)
8    pdbl = &glob_dbl;
9
10  *pdbl = value;
11}
12
13main ()
14{
15  f ((void *) 0, 55.1);
16
17  if (glob_dbl != 55.1)
18    abort ();
19  exit (0);
20}
21