Remove unused variables in test_linalg_*

Author: jvdp1

test/linalg/test_linalg_determinant.fypp

@@ -43,7 +43,6 @@ module test_linalg_determinant
 
         type(linalg_state_type) :: state
 
-        integer(ilp) :: i
         integer(ilp), parameter :: n = 128_ilp
 
         ${rt}$ :: a(n,n),deta
@@ -79,7 +78,7 @@ module test_linalg_determinant
 
         integer(ilp), parameter :: n = 4_ilp
         real(${rk}$), parameter :: coef = 0.01_${rk}$
-        integer(ilp) :: i,j
+        integer(ilp) :: i
         ${rt}$ :: a(n,n),deta
 
         !> Multiply eye by a very small number
@@ -108,7 +107,7 @@ module test_linalg_determinant
 
         type(linalg_state_type) :: state
 
-        integer(ilp) :: i,j,n
+        integer(ilp) :: i,n
         integer(ilp), parameter :: nmax = 10_ilp
 
         ${ct}$, parameter :: res(nmax) = [${ct}$::(1,1),(0,2),(-2,2),(-4,0),(-4,-4), &

test/linalg/test_linalg_inverse.fypp

@@ -95,7 +95,6 @@ module test_linalg_inverse
         integer(ilp), intent(in) :: n
         ${rt}$ :: A(n,n)
 
-        ${rt}$, parameter :: one  = 1.0_${rk}$
         ${rt}$, parameter :: half = 0.5_${rk}$
 
         !> Initialize with randoms

test/linalg/test_linalg_mnorm.fypp

@@ -31,12 +31,11 @@ module test_linalg_mnorm
     subroutine test_matrix_norms_${ri}$(error)
         type(error_type), allocatable, intent(out) :: error
 
-        integer(ilp) :: i,j,m,n
+        integer(ilp) :: i
         integer(ilp), parameter :: mtx_dim = 5
         real(${rk}$), parameter :: tol = 10*sqrt(epsilon(0.0_${rk}$))
         ${rt}$, allocatable :: A(:,:)
         type(linalg_state_type) :: err
-        character(64) :: msg
 
         allocate(A(mtx_dim,mtx_dim))
 

test/linalg/test_linalg_schur.fypp

@@ -36,7 +36,6 @@ module test_linalg_schur
 
         integer(ilp), parameter :: n   = 15_ilp
         integer(ilp) :: lwork
-        real(${rk}$), parameter :: tol = 10*sqrt(epsilon(0.0_${rk}$))
         complex(${rk}$) :: eigs(n)
         ${rt}$, dimension(n,n) :: a,t,z
         ${rt}$, allocatable :: storage(:)

test/linalg/test_linalg_solve.fypp

@@ -95,7 +95,6 @@ module test_linalg_solve
         type(linalg_state_type) :: state
 
         ${rt}$ :: A(5,5), b(5), res(5), x(5)
-        integer(ilp) :: i
 
         ! Fill in linear system
         A = (0.0_${rk}$,0.0_${rk}$)

test/linalg/test_linalg_sparse.fypp

@@ -305,7 +305,6 @@ contains
             type(COO_${s1}$_type) :: COO
             type(CSR_${s1}$_type) :: CSR
             type(CSC_${s1}$_type) :: CSC
-            type(ELL_${s1}$_type) :: ELL
             ${t1}$, allocatable :: diagonal(:)
 
             allocate( dense(4,4) , source = &