OSDN Git Service

Fix PR 17408 and PR 17409.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 920411-1.c
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 }