1! { dg-do compile } 2! 3! PR fortran/30073 4! PR fortran/43793 5! 6! Original code by Joost VandeVondele 7! Reduced and corrected code by Steven G. Kargl 8! 9module fft_tools 10 implicit none 11 integer, parameter :: lp = 8 12contains 13 subroutine sparse_alltoall (rs, rq, rcount) 14 complex(kind=lp), dimension(:, :), pointer :: rs, rq 15 integer, dimension(:) :: rcount 16 integer :: pos 17 pos = 1 18 if (rcount(pos) /= 0) then 19 rq(1:rcount(pos),pos) = rs(1:rcount(pos),pos) 20 end if 21 end subroutine sparse_alltoall 22end module fft_tools 23