gcc/testsuite/gfortran.dg/lto/pr41069_2.f90


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