Add some more prints

Author: minhqdao

src/stdlib_io_np_load.fypp

@@ -203,6 +203,8 @@ 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

test/io/test_np.f90

@@ -1189,6 +1189,7 @@ 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