implement tests

Author: perazz

test/linalg/CMakeLists.txt

@@ -2,6 +2,7 @@ set(
   fppFiles
   "test_linalg.fypp"
   "test_blas_lapack.fypp"
+  "test_linalg_cholesky.fypp"
   "test_linalg_solve.fypp"
   "test_linalg_lstsq.fypp"
   "test_linalg_determinant.fypp"
@@ -11,6 +12,7 @@ set(
 fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)
 
 ADDTEST(linalg)
+ADDTEST(linalg_cholesky)
 ADDTEST(linalg_determinant)
 ADDTEST(linalg_matrix_property_checks)
 ADDTEST(linalg_solve)

test/linalg/test_linalg_cholesky.fypp

@@ -0,0 +1,95 @@
+#:include "common.fypp"
+#:set RC_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES
+! Test Cholesky factorization 
+module test_linalg_cholesky
+    use testdrive, only: error_type, check, new_unittest, unittest_type
+    use stdlib_linalg_constants
+    use stdlib_linalg, only: cholesky
+    use stdlib_linalg_state, only: linalg_state_type
+
+    implicit none (type,external)
+    private
+    
+    public :: test_cholesky_factorization
+
+    contains
+
+    !> Cholesky factorization tests
+    subroutine test_cholesky_factorization(tests)
+        !> Collection of tests
+        type(unittest_type), allocatable, intent(out) :: tests(:)
+
+        allocate(tests(0))
+        
+        #:for rk,rt,ri in RC_KINDS_TYPES
+        #:if rk!="xdp"
+        tests = [tests,new_unittest("least_cholesky_${ri}$",test_cholesky_${ri}$)]
+        #:endif
+        #:endfor
+
+    end subroutine test_cholesky_factorization
+
+    !> Cholesky factorization of a random matrix
+    #:for rk,rt,ri in RC_KINDS_TYPES
+    #:if rk!="xdp"
+    subroutine test_cholesky_${ri}$(error)
+        type(error_type), allocatable, intent(out) :: error
+
+        integer(ilp), parameter :: n   = 3_ilp
+        real(${rk}$), parameter :: tol = 100*sqrt(epsilon(0.0_${rk}$))
+        ${rt}$ :: a(n,n), l(n,n)
+        type(linalg_state_type) :: state
+        
+        ! Set real matrix
+        a(1,:) = [6, 15, 55]
+        a(2,:) = [15, 55, 225]
+        a(3,:) = [55, 225, 979]
+        
+        ! Set result (lower factor) 
+        l(1,:) = [ 2.4495_${rk}$,  0.0000_${rk}$, 0.0000_${rk}$]
+        l(2,:) = [ 6.1237_${rk}$,  4.1833_${rk}$, 0.0000_${rk}$]
+        l(3,:) = [22.4537_${rk}$, 20.9165_${rk}$, 6.1101_${rk}$]
+        
+        ! 1) Cholesky factorization with full matrices
+        call cholesky(a, l, other_zeroed=.true., err=state)
+        
+        call check(error,state%ok(),state%print())
+        if (allocated(error)) return
+        
+        call check(error, all(abs(a-matmul(l,transpose(l)))<tol), 'data converged')
+        if (allocated(error)) return        
+        
+        
+    end subroutine test_cholesky_${ri}$
+
+    #:endif
+    #:endfor
+
+
+end module test_linalg_cholesky
+
+program test_cholesky
+    use, intrinsic :: iso_fortran_env, only : error_unit
+    use testdrive, only : run_testsuite, new_testsuite, testsuite_type
+    use test_linalg_cholesky, only : test_cholesky_factorization
+    implicit none
+    integer :: stat, is
+    type(testsuite_type), allocatable :: testsuites(:)
+    character(len=*), parameter :: fmt = '("#", *(1x, a))'
+
+    stat = 0
+
+    testsuites = [ &
+        new_testsuite("linalg_cholesky", test_cholesky_factorization) &
+        ]
+
+    do is = 1, size(testsuites)
+        write(error_unit, fmt) "Testing:", testsuites(is)%name
+        call run_testsuite(testsuites(is)%collect, error_unit, stat)
+    end do
+
+    if (stat > 0) then
+        write(error_unit, '(i0, 1x, a)') stat, "test(s) failed!"
+        error stop
+    end if
+end program test_cholesky