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
tree-optimization/113385 - wrong loop father with early exit vectorization
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt79.adb
blob
f58e25bc11dc879f75cf26a2609d5484e50899c1
1
-- { dg-do compile }
2
-- { dg-options "-O" }
3
4
package body
Opt79
is
5
6
function
F
(
I
:
Integer
)
return
Arr
is
7
A
:
Arr
;
8
9
procedure
Nested
is
10
11
procedure
Inner
is
12
begin
13
A
(
1
) :=
0
;
14
end
;
15
16
begin
17
Inner
;
18
end
;
19
20
begin
21
Nested
;
22
for
J
in
A
'Range
loop
23
A
(
J
) :=
I
;
24
end loop
;
25
return
A
;
26
end
;
27
28
end
Opt79
;