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