Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
lto
/
pr41069_1.f90
blob: 0c4e05d66d314da0488b3089c28066b00238651b [
file
] [
log
] [
blame
]
SUBROUTINE S
(
zin
)
COMPLEX
(
8
),
DIMENSION
(
3
,
3
,
3
)
::
zin
INTEGER
::
m
,
n
CALL mltfftsg
(
zin
,
m
,
n
)
END
SUBROUTINE
COMPLEX
(
8
),
DIMENSION
(
3
,
3
,
3
)
::
zin
CALL s
(
zin
)
END