Use other array notation

Author: minhqdao

test/io/test_np.f90

@@ -1158,15 +1158,17 @@ subroutine npz_save_two_arrays(error)
 
         allocate(input_array_1(5, 6))
         call random_number(input_array_1)
-        input_array_2 = [(1.0_dp, 2.0_dp), (3.0_dp, 4.0_dp), (5.0_dp, 6.0_dp)]
         call add_array(arrays, input_array_1, stat, name=array_name_1)
         call check(error, stat, "Error adding array 1 to the list of arrays.")
         if (allocated(error)) return
+        
+        input_array_2 = (/(1.0_dp, 2.0_dp), (3.0_dp, 4.0_dp), (5.0_dp, 6.0_dp)/)
         call add_array(arrays, input_array_2, stat, name=array_name_2)
         call check(error, stat, "Error adding array 2 to the list of arrays.")
         if (allocated(error)) return
         call check(error, size(arrays) == 2, "Wrong array size.")
         if (allocated(error)) return
+
 print *, 'in test'
 do j = 1, size(arrays)
     print *, arrays(j)%array%name
@@ -1178,6 +1180,7 @@ subroutine npz_save_two_arrays(error)
       class default
     end select
 end do
+
         call save_npz(output_file, arrays, stat)
         call check(error, stat, "Error saving arrays as an npz file.")
         if (allocated(error)) then