Properly read value

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -262,7 +262,13 @@ do j = 1, size(files)
 end do
 do j = 1, size(arrays)
     print *, arrays(j)%array%name
-    print *, arrays(j)%array%values
+    select type (typed_array => arrays(1)%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
         call zip(filename, files, stat, msg, is_compressed)
         if (stat /= 0) then