Use proper allocates in add_array

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -170,7 +170,7 @@ contains
             end if
         end if
 
-        t_arr%values = array
+        allocate(t_arr%values, source=array)
 
         if (.not. allocated(arrays)) then
             allocate(arrays(1))
@@ -186,7 +186,7 @@ contains
             end if
         end do
 
-        wrapper%array = t_arr
+        allocate(wrapper%array, source=t_arr)
         arrays = [arrays, wrapper]
     end
 #:endfor

test/io/test_np.f90

@@ -1150,7 +1150,7 @@ subroutine npz_save_two_arrays(error)
         type(t_array_wrapper), allocatable :: arrays(:), arrays_reloaded(:)
         integer :: stat, j
         real(dp), allocatable :: input_array_1(:,:)
-        complex(dp), parameter, dimension(3) :: input_array_2 = [cmplx(1, 2, kind=8), cmplx(3, 4, kind=8), cmplx(5, 6, kind=8)]
+        complex(dp), parameter :: input_array_2(3) = [(1, 2._dp), (3, 4._dp), (5, 6._dp)]
         character(*), parameter :: array_name_1 = "array_1"
         character(*), parameter :: array_name_2 = "array_2"
         character(*), parameter :: output_file = "two_arrays.npz"