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
/
gfortran.dg
/
pr91568.f
blob
4ada559d692a77aba59b21e49d917c47a4c949dd
1
! {
dg
-
do
compile
}
2
! {
dg
-
options
"-Ofast"
}
3
subroutine
h3dall
(
z
,
hvec
,
hder
,
nterms
)
4
complex
*
16
hvec
(
0
:
1
),
hder
(
0
:
1
)
5
complex
*
16
z
,
zinv
,
ztmp
/
1.0
/
6
zinv
=
1.0
/
z
7
do
i
=
1
,
nterms
8
ztmp
=
zinv*i
9
hder
(
i
)=
hvec
(
i
-
1
)-
ztmp*hvec
(
i
)
10
enddo
11
end