Google Git
Sign in
gnu / gcc / fba228e259dd5112851527f2dbb62c5601100985 / . / gcc / testsuite / gfortran.dg / 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