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