2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 990531-1.c
blobd5501d3a7d746d59e8e4d3940013e5443bc9313c
1 unsigned long bad(int reg, unsigned long inWord)
3 union {
4 unsigned long word;
5 unsigned char byte[4];
6 } data;
8 data.word = inWord;
9 data.byte[reg] = 0;
11 return data.word;
14 main()
16 /* XXX This test could be generalized. */
17 if (sizeof (long) != 4)
18 exit (0);
20 if (bad (0, 0xdeadbeef) == 0xdeadbeef)
21 abort ();
22 exit (0);