Invert addition and allocation

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -185,33 +185,8 @@ contains
  end if
  end do
 
- allocate(wrapper%array, source=t_arr)
-
-print *, 'before adding to arrays'
-do i = 1, size(arrays)
- print *, arrays(i)%array%name
- select type (typed_array => arrays(i)%array)
- class is (t_array_rdp_2)
- print *, typed_array%values
- class is (t_array_cdp_1)
- print *, typed_array%values
- class default
- end select
-end do
-
  arrays = [arrays, wrapper]
-
-print *, 'after adding to arrays'
-do i = 1, size(arrays)
- print *, arrays(i)%array%name
- select type (typed_array => arrays(i)%array)
- class is (t_array_rdp_2)
- print *, typed_array%values
- class is (t_array_cdp_1)
- print *, typed_array%values
- class default
- end select
-end do
+ allocate(wrapper%array, source=t_arr)
  end
 #:endfor
 #:endfor