f(w)1 long f (w)
2      char *w;
3 {
4   long k, i, c = 0, x;
5   char *p = (char*) &x;
6   for (i = 0; i < 1; i++)
7     {
8       for (k = 0; k < sizeof (long); k++)
9 	p[k] = w[k];
10       c += x;
11     }
12   return c;
13 }
14 
main()15 main ()
16 {
17   int i;
18   char a[sizeof (long)];
19 
20   for (i = sizeof (long); --i >= 0;) a[i] = ' ';
21   if (f (a) != ~0UL / (unsigned char) ~0 * ' ')
22     abort ();
23   exit (0);
24 }
25