Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
lto
/
pr41069_0.f90
blob: 4e7d65939c805d1e69d10fae23cbc8dcb6895a63 [
file
] [
log
] [
blame
]
!
{
dg
-
lto
-
do
link
}
SUBROUTINE mltfftsg
(
a
,
ldax
,
lday
)
INTEGER
,
PARAMETER
::
dbl
=
SELECTED_REAL_KIND
(
14
,
200
)
INTEGER
,
INTENT
(
IN
)
::
ldax
,
lday
COMPLEX
(
dbl
),
INTENT
(
INOUT
)
::
a
(
ldax
,
lday
)
END
SUBROUTINE mltfftsg