Print the most important part

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -171,10 +171,6 @@ contains
  end if
 
  allocate(t_arr%values, source=array)
-
-print *, 'after allocating values'
-print *, array
-
  if (.not. allocated(arrays)) then
  allocate(arrays(1))
  allocate(arrays(1)%array, source=t_arr)
@@ -191,8 +187,6 @@ print *, array
 
  allocate(wrapper%array, source=t_arr)
 
-print *, 'after allocating wrapper'
-print *, 't_arr: ', t_arr%values
 print *, 'wrapper: '
 select type (typed_array => wrapper%array)
  class is (t_array_rdp_2)
@@ -204,17 +198,17 @@ end select
 
  arrays = [arrays, wrapper]
 
-! print *, 'after allocating 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
+print *, 'after allocating 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
  end
 #:endfor
 #:endfor