Remove unused variables in test_distribution_*

Author: jvdp1

test/stats/test_distribution_exponential.fypp

@@ -74,7 +74,7 @@ contains
     subroutine test_expon_rvs_${t1[0]}$${k1}$
         ${t1}$ :: res(10), scale
         integer, parameter :: k = 5
-        integer :: i, n
+        integer :: i
         integer :: seed, get
         #:if t1[0] == "r"
             #! for real type
@@ -143,7 +143,6 @@ contains
     subroutine test_expon_pdf_${t1[0]}$${k1}$
 
         ${t1}$ :: x1, x2(3,4), scale
-        integer :: i, n
         integer :: seed, get
         real(${k1}$) :: res(3,5)
         #:if t1[0] == "r"
@@ -212,7 +211,6 @@ contains
     subroutine test_expon_cdf_${t1[0]}$${k1}$
 
         ${t1}$ :: x1, x2(3,4), scale
-        integer :: i, n
         integer :: seed, get
         real(${k1}$) :: res(3,5)
         #:if t1[0] == "r"

test/stats/test_distribution_normal.fypp

@@ -76,7 +76,7 @@ contains
     subroutine test_nor_rvs_${t1[0]}$${k1}$
         ${t1}$ :: res(10), loc, scale
         integer, parameter :: k = 5
-        integer :: i, n
+        integer :: i
         integer :: seed, get
         #:if t1[0] == "r"
             #! for real type
@@ -145,7 +145,7 @@ contains
 
         ${t1}$ :: x1, x2(3,4), loc, scale
         integer, parameter :: k = 5
-        integer :: i, n, seed, get
+        integer :: seed, get
         real(${k1}$) :: res(3,5)
         #:if t1[0] == "r"
             #! for real type
@@ -213,7 +213,6 @@ contains
     subroutine test_nor_cdf_${t1[0]}$${k1}$
 
         ${t1}$ :: x1, x2(3,4), loc, scale
-        integer :: i, n
         integer :: seed, get
         real(${k1}$) :: res(3,5)
         #:if t1[0] == "r"

test/stats/test_distribution_uniform.fypp

@@ -13,7 +13,7 @@ program test_distribution_uniform
     #:for k1, t1 in REAL_KINDS_TYPES
     ${t1}$, parameter :: ${k1}$tol = 1000 * epsilon(1.0_${k1}$)
     #:endfor
-    integer :: put, get
+    integer :: put
 
     put = 135792468
 
@@ -101,7 +101,7 @@ contains
     #:for k1, t1 in ALL_KINDS_TYPES
       subroutine test_uni_rvs_${t1[0]}$${k1}$
           ${t1}$ :: res(15), scale, loc
-          integer :: i, n, seed, get, k
+          integer :: i, seed, get, k
 
           #:if k1 == "int8"
           ${t1}$, parameter :: ans(15) = [47, 99, 43, 37, 48, 30, 27, 100, 30, &