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: Suppress invalid finalization of artificial variable [PR116388]
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
pr81227.c
blob
bdaa8cbab2bdb2424de2e4630e0ab44951e5b62c
1
/* Copy of gcc.c-torture/compile/pr80443.c */
2
/* { dg-do compile } */
3
/* { dg-options "-O2 -fwrapv" } */
4
5
struct
S
{
int
a
:
1
; }
b
,
c
;
6
signed char
d
,
e
,
f
;
7
8
void
9
foo
()
10
{
11
while
(
f
)
12
{
13
signed char
g
=
b
.
a
;
14
if
(
g
)
15
b
.
a
= ~(
1
+ (
d
||
c
.
a
));
16
if
(
b
.
a
<
g
&&
b
.
a
)
17
g
=
0
;
18
if
(
b
.
a
>
c
.
a
)
19
b
.
a
=
g
;
20
c
.
a
=
e
;
21
}
22
}