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