Remove prints, initialize stat to 0

Author: minhqdao

src/stdlib_io_np_load.fypp

@@ -193,7 +193,7 @@ contains
                             close(io, status='delete'); return
                         end if
 
-                        allocate (t_array_${t1[0]}$${k1}$_${rank}$ :: arrays(i)%array, stat=stat)
+                        allocate(t_array_${t1[0]}$${k1}$_${rank}$ :: arrays(i)%array, stat=stat)
                         if (stat /= 0) then
                             msg = "Failed to allocate array of type '"//this_type//"' "//&
                             & 'with total size of '//to_string(product(vshape))
@@ -203,8 +203,6 @@ contains
                         select type (typed_array => arrays(i)%array)
                           class is (t_array_${t1[0]}$${k1}$_${rank}$)
                             allocate(typed_array%values, source=array)
-                            print *, 'array size: ', size(array)
-                            print *, 'typed_array%value size: ', size(typed_array%values)
                           class default
                             msg = 'Failed to allocate values.'; stat = 1
                             close(io, status='delete'); return

src/stdlib_io_np_save.fypp

@@ -214,6 +214,7 @@ contains
         type(string_type), allocatable :: files(:)
 
         if (present(iostat)) iostat = 0
+        stat = 0
 
         if (present(compressed)) then
             is_compressed = compressed

test/io/test_np.f90

@@ -1189,7 +1189,6 @@ subroutine npz_save_two_arrays(error)
 
         select type (typed_array => arrays_reloaded(1)%array)
           class is (t_array_rdp_2)
-          print *, typed_array%values, input_array_1
             call check(error, size(typed_array%values), size(input_array_1), "First array does not match in size.")
             if (allocated(error)) then
                 call delete_file(output_file); return