summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/lto/pr41069_2.f90
blob: 121603eaa60efc395a3e03486e1aa08776bdd3f8 (plain)
1
2
3
4
5
6
7
8
9
SUBROUTINE fftsg3d ( n, zout )
  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 )
  INTEGER, DIMENSION(*), INTENT(IN)                    :: n
  COMPLEX(KIND=dp), DIMENSION(*), INTENT(INOUT)        :: zout
  INTEGER                                              :: nx
  nx = n ( 1 )
  CALL mltfftsg ( zout, nx, nx )
END SUBROUTINE fftsg3d