Google Git
Sign in
gnu / gcc / 93ac832f1846e4867aa6537f76f510fab8e3e87d / . / 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