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  
      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  }