Print before and after adding wrapper to array

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -187,18 +187,21 @@ contains
 
         allocate(wrapper%array, source=t_arr)
 
-print *, 'wrapper: '
-select type (typed_array => wrapper%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
+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 allocating arrays'
+print *, 'after adding to arrays'
 do i = 1, size(arrays)
     print *, arrays(i)%array%name
     select type (typed_array => arrays(i)%array)