Try allocate differently, run zip quietly

Author: minhqdao

src/stdlib_io_np_load.fypp

@@ -202,7 +202,7 @@ contains
 
                         select type (typed_array => arrays(i)%array)
                           class is (t_array_${t1[0]}$${k1}$_${rank}$)
-                            typed_array%values = array
+                            allocate(typed_array%value, source=array)
                           class default
                             msg = 'Failed to allocate values.'; stat = 1
                             close(io, status='delete'); return

src/stdlib_io_zip.f90

@@ -43,7 +43,7 @@ subroutine zip(output_file, files, stat, msg, compressed)
             files_str = files_str//' '//char(files(i))
         end do
 
-        cmd = 'zip '//''//output_file//' '//files_str
+        cmd = 'zip -q '//''//output_file//' '//files_str
         if (.not. is_compressed) cmd = cmd//' -0'
 
         call run(cmd, run_stat)

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 *, size(typed_array%values), size(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