1184299Snwhitehornlong f (w)
2184299Snwhitehorn     char *w;
3184299Snwhitehorn{
4184299Snwhitehorn  long k, i, c = 0, x;
5184299Snwhitehorn  char *p = (char*) &x;
6184299Snwhitehorn  for (i = 0; i < 1; i++)
7184299Snwhitehorn    {
8184299Snwhitehorn      for (k = 0; k < sizeof (long); k++)
9184299Snwhitehorn	p[k] = w[k];
10184299Snwhitehorn      c += x;
11184299Snwhitehorn    }
12184299Snwhitehorn  return c;
13184299Snwhitehorn}
14184299Snwhitehorn
15184299Snwhitehornmain ()
16184299Snwhitehorn{
17184299Snwhitehorn  int i;
18184299Snwhitehorn  char a[sizeof (long)];
19184299Snwhitehorn
20184299Snwhitehorn  for (i = sizeof (long); --i >= 0;) a[i] = ' ';
21184299Snwhitehorn  if (f (a) != ~0UL / (unsigned char) ~0 * ' ')
22184299Snwhitehorn    abort ();
23184299Snwhitehorn  exit (0);
24184299Snwhitehorn}
25184299Snwhitehorn