repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fortran: Fix associate_69.f90 that fails on some platforms [PR115700]
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
920908-2.c
blob
ed95337e0b080f997ae64d4fbac148febd1ffa29
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
)
7
{
8
exit
(
0
);
9
}
10
#else
11
/*
12
CONF:m68k-sun-sunos4.1.1
13
OPTIONS:-O
14
*/
15
struct
T
16
{
17
unsigned
i
:
8
;
18
unsigned
c
:
24
;
19
};
20
f
(
struct
T t
)
21
{
22
struct
T s
[
1
];
23
s
[
0
]=
t
;
24
return
(
char
)
s
->
c
;
25
}
26
main
()
27
{
28
struct
T t
;
29
t
.
i
=
0xff
;
30
t
.
c
=
0xffff11
;
31
if
(
f
(
t
)!=
0x11
)
abort
();
32
exit
(
0
);
33
}
34
#endif