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)