feat: complete csc2dense implementation, tests, and specs

Author: srinjoy933

doc/specs/stdlib_sparse.md

@@ -296,6 +296,16 @@ If the `diagonal` array has not been previously allocated, the `diag` subroutine
 
 ### Syntax
 
+`call ` [[stdlib_sparse_conversion(module):csc2dense(interface)]] `(csc,dense)`
+
+### Arguments
+
+`csc` : Shall be a `CSC` type of `real` or `complex` type. It is an `intent(in)` argument.
+
+`dense` : Shall be a rank-2 array of `real` or `complex` type. It is an `intent(out)` argument.
+
+### Syntax
+
 `call ` [[stdlib_sparse_conversion(module):coo2csr(interface)]] `(coo,csr[,sort_data])`
 
 ### Arguments

test/linalg/test_linalg_sparse.fypp

@@ -13,7 +13,6 @@ module test_sparse_spmv
 
 contains
 
-
     !> Collect all exported unit tests
     subroutine collect_suite(testsuite)
         !> Collection of tests
@@ -30,7 +29,8 @@ contains
             new_unittest('diagonal', test_diagonal), &
             new_unittest('add_get_values', test_add_get_values),  &
             new_unittest('sparse_operators', test_sparse_operators), &
-            new_unittest('add_block_symmetric_skip', test_add_block_symmetric_skip) &
+            new_unittest('add_block_symmetric_skip', test_add_block_symmetric_skip), &
+            new_unittest('csc2dense', test_csc2dense) &
         ]
     end subroutine
 
@@ -579,10 +579,40 @@ contains
         #:endfor
 
     end subroutine
+
+    subroutine test_csc2dense(error)
+        !> Error handling
+        type(error_type), allocatable, intent(out) :: error
+        #:for k1, t1, s1 in (KINDS_TYPES)
+        block
+            integer, parameter :: wp = ${k1}$
+            type(COO_${s1}$_type) :: COO
+            type(CSC_${s1}$_type) :: CSC
+            ${t1}$, allocatable :: dense_original(:,:), dense_converted(:,:)
+
+            ! 1. Create a baseline dense 4x4 matrix
+            allocate( dense_original(4,4) , source = &
+                    reshape(real([1,0,0,5, &
+                                  0,2,0,0, &
+                                  0,6,3,0, &
+                                  0,0,7,4],kind=wp),[4,4]) )
+
+            ! 2. Convert Dense -> COO -> CSC (Standard pipeline)
+            call dense2coo( dense_original , COO )
+            call coo2csc( COO, CSC )
+
+            ! 3. Execute your new csc2dense routine!
+            call csc2dense( CSC, dense_converted )
+
+            ! 4. Verify the converted matrix perfectly matches the original
+            call check(error, all(dense_original == dense_converted), "Error: csc2dense conversion failed for kind ${s1}$")
+            if (allocated(error)) return
+        end block
+        #:endfor
+    end subroutine
 
 end module
 
-
 program tester
     use, intrinsic :: iso_fortran_env, only : error_unit
     use testdrive, only : run_testsuite, new_testsuite, testsuite_type
@@ -607,4 +637,4 @@ program tester
         write(error_unit, '(i0, 1x, a)') stat, "test(s) failed!"
         error stop
     end if
-end program
+end program