Add examples

Author: minhqdao

example/io/CMakeLists.txt

@@ -5,3 +5,5 @@ ADD_EXAMPLE(loadtxt)
 ADD_EXAMPLE(open)
 ADD_EXAMPLE(savenpy)
 ADD_EXAMPLE(savetxt)
+ADD_EXAMPLE(load_npz)
+ADD_EXAMPLE(save_npz)

example/io/example_load_npz.f90

@@ -0,0 +1,21 @@
+program example_load_npz
+    use stdlib_array
+    use stdlib_io_np, only: load_npz
+    implicit none
+
+    type(t_array_wrapper), allocatable :: arrays(:)
+    integer :: i
+
+    call load_npz('example_load.npz', arrays)
+
+    do i = 1, size(arrays)
+        select type (array => arrays(i)%array)
+          class is (t_array_rsp_2)
+            print *, array%values
+          class is (t_array_iint32_2)
+            print *, array%values
+          class default
+            print *, 'Array ', i, ' is of unknown type.'
+        end select
+    end do
+end

example/io/example_save_npz.f90

@@ -0,0 +1,14 @@
+program example_save_npz
+    use stdlib_array, only: t_array_wrapper
+    use stdlib_io_np, only: add_array, save_npz
+    implicit none
+
+    type(t_array_wrapper), allocatable :: arrays(:)
+    real :: x(3, 2) = 1
+    integer :: y(2, 3) = 2
+
+    call add_array(arrays, x)
+    call add_array(arrays, y)
+
+    call save_npz('example_save.npz', arrays)
+end