gcc/testsuite/gfortran.dg/pr43793.f90

   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 !
   9 module fft_tools
  10   implicit none
  11   integer, parameter :: lp = 8
  12 contains
  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
  22 end module fft_tools
  23 ! { dg-final { cleanup-modules "fft_tools" } }