(#44) memory issue with listneigh in test_link fixed

danieljprice · Aug 5, 2020 · 02cdfc7 · 02cdfc7
1 parent 434b194
commit 02cdfc7
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/tests/test_link.F90 b/src/tests/test_link.F90
@@ -70,11 +70,15 @@ subroutine test_link(ntests,npass)
  integer :: nfailed(8)
  logical                :: iactivei,iactivej,activecell
  real, allocatable :: xyzcache(:,:)
- integer :: listneigh(maxneigh)
+ integer, allocatable :: listneigh(:)
  character(len=1), dimension(3), parameter :: xlabel = (/'x','y','z'/)
 
  if (id==master) write(*,"(a,/)") '--> TESTING LINKLIST / NEIGHBOUR FINDING'
 !
+!--allocate memory for neighbour list
+!
+ allocate(listneigh(maxneigh))
+!
 !--set up a random particle distribution
 !
  npart = 0
@@ -436,6 +440,7 @@ subroutine test_link(ntests,npass)
  enddo
 
  if (allocated(xyzcache)) deallocate(xyzcache)
+ deallocate(listneigh)
 
  if (id==master) write(*,"(/,a,/)") '<-- LINKLIST TEST COMPLETE'