Fix memory leaks

These arose as a result of removing buggy "autofree".

Author: sethrj

test/test_algorithm.F90

@@ -178,7 +178,9 @@ subroutine test_shuffle()
   call rng%release()
 
   ! Shuffle using temporary RNG using seed 12345
-  call shuffle(Engine(12345_c_int32_t), iarr)
+  rng = Engine(12345_c_int32_t)
+  call shuffle(rng, iarr)
+  call rng%release
   write(*,"(A,(8I4))") "Shuffled:", iarr
 end subroutine
 

test/test_random.F90

@@ -115,10 +115,14 @@ subroutine test_discrete_distribution()
   integer(C_INT), dimension(1024) :: sampled
   integer(C_INT), dimension(4) :: tallied = 0
   integer(C_INT), dimension(4), parameter :: gold_result = [130, 127, 267, 500]
+  type(Engine) :: rng
   integer :: i
 
   ! Sample 1024 random ints
-  call discrete_distribution(weights, Engine(), sampled)
+  rng = Engine()
+  call discrete_distribution(weights, rng, sampled)
+  call rng%release()
+
   ASSERT(minval(sampled) == 1)
   ASSERT(maxval(sampled) == size(weights))
   do i = 1, size(sampled)