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