Fortran: Fix associate_69.f90 that fails on some platforms [PR115700]
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 920908-2.c
blobed95337e0b080f997ae64d4fbac148febd1ffa29
1 /* { dg-additional-options "-fpermissive" } */
2 /* The bit-field below would have a problem if __INT_MAX__ is too
3 small. */
4 #if __INT_MAX__ < 2147483647
5 int
6 main (void)
8 exit (0);
10 #else
12 CONF:m68k-sun-sunos4.1.1
13 OPTIONS:-O
15 struct T
17 unsigned i:8;
18 unsigned c:24;
20 f(struct T t)
22 struct T s[1];
23 s[0]=t;
24 return(char)s->c;
26 main()
28 struct T t;
29 t.i=0xff;
30 t.c=0xffff11;
31 if(f(t)!=0x11)abort();
32 exit(0);
34 #endif