Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr91568.f
blob: 4ada559d692a77aba59b21e49d917c47a4c949dd [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Ofast"
}
subroutine h3dall
(
z
,
hvec
,
hder
,
nterms
)
complex
*
16
hvec
(
0
:
1
),
hder
(
0
:
1
)
complex
*
16
z
,
zinv
,
ztmp
/
1.0
/
zinv
=
1.0
/
z
do
i
=
1
,
nterms
ztmp
=
zinv
*
i
hder
(
i
)=
hvec
(
i
-
1
)-
ztmp
*
hvec
(
i
)
enddo
end