Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr40999.f
blob: b6fa85ad5b188f62e08927590d2360fcbfcf78d3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O3 -fwhole-file"
}
SUBROUTINE ZLARFG
(
ALPHA
)
COMPLEX
*
16
ZLADIV
ALPHA
=
ZLADIV
(
DCMPLX
(
1.0D
+
0
)
)
END
COMPLEX
*
16
FUNCTION ZLADIV
(
X
)
COMPLEX
*
16
X
CALL DLADIV
(
DBLE
(
X
),
DIMAG
(
X
)
)
END