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 ALLOCATE with SOURCE of deferred character length [PR114019]
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
torture
/
pr101202.c
blob
e76c908f4937affa4d6441abaf1296b821922795
1
/* { dg-do compile } */
2
/* { dg-additional-options "-ftree-vectorize" } */
3
4
int
printf
(
const char
*, ...);
5
unsigned
a
,
b
,
d
;
6
int
c
,
e
,
f
;
7
int
main
()
8
{
9
while
(
a
)
10
if
(
b
)
11
{
12
f
=
a
;
13
while
(
e
)
14
{
15
int
h
,
i
;
16
if
(
d
)
17
{
18
h
=
a
;
19
i
=
d
;
20
L
:
21
d
=
a
|
d
&&
c
;
22
if
(
a
)
23
{
24
printf
(
"%d"
,
a
);
25
goto
L
;
26
}
27
}
28
a
=
h
;
29
d
=
i
;
30
}
31
}
32
return
0
;
33
}