Changed along suggestions by reviewers

Author: fiolj

src/CMakeLists.txt

@@ -21,7 +21,6 @@ fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)
 
 set(SRC
     stdlib_experimental_ascii.f90
-    stdlib_experimental_io.f90
     stdlib_experimental_error.f90
     stdlib_experimental_kinds.f90
     stdlib_experimental_optval.f90

src/stdlib_experimental_io.md

@@ -20,7 +20,7 @@ Loads a rank-2 `array` from a text file.
 
 `filename`: Shall be  a character expression containing the file name from which to load the rank-2 `array`.
 
-`array`: Shall be an allocatable rank-2 array of type `real` or `integer`.
+`array`: Shall be an allocatable rank-2 array of type `real`, `complex` or `integer`.
 
 ### Return value
 
@@ -104,7 +104,7 @@ Saves a rank-2 `array` into a text file.
 
 `filename`: Shall be  a character expression containing the name of the file that will contain the 2D `array`.
 
-`array`: Shall be a rank-2 array of type `real` or `integer`.
+`array`: Shall be a rank-2 array of type `real`, `complex` or `integer`.
 
 ### Output
 

src/tests/io/test_savetxt.f90

@@ -8,7 +8,7 @@ program test_savetxt
 
 outpath = get_outpath() // "/tmp.dat"
 
-call test_int32(outpath)
+call test_iint32(outpath)
 call test_rsp(outpath)
 call test_rdp(outpath)
 call test_csp(outpath)
@@ -29,7 +29,7 @@ function get_outpath() result(outpath)
     endif
     end function get_outpath
 
-    subroutine test_int32(outpath)
+    subroutine test_iint32(outpath)
     character(*), intent(in) :: outpath
     integer(int32) :: d(3, 2), e(2, 3)
     integer(int32), allocatable :: d2(:, :)
@@ -62,10 +62,10 @@ subroutine test_rsp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._sp)))
-    end subroutine
+    end subroutine test_rsp
 
 
-  subroutine test_rdp(outpath)
+    subroutine test_rdp(outpath)
     character(*), intent(in) :: outpath
     real(dp) :: d(3, 2), e(2, 3)
     real(dp), allocatable :: d2(:, :)
@@ -80,7 +80,7 @@ subroutine test_rdp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._dp)))
-    end subroutine
+    end subroutine test_rdp
 
     subroutine test_csp(outpath)
     character(*), intent(in) :: outpath
@@ -97,7 +97,7 @@ subroutine test_csp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._sp)))
-    end subroutine
+    end subroutine test_csp
 
     subroutine test_cdp(outpath)
     character(*), intent(in) :: outpath
@@ -114,6 +114,6 @@ subroutine test_cdp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._dp)))
-    end subroutine
+    end subroutine test_cdp
 
 end program test_savetxt

src/tests/io/test_savetxt_qp.f90

@@ -1,32 +1,32 @@
 program test_savetxt_qp
-  use stdlib_experimental_kinds, only: qp
-  use stdlib_experimental_io, only: loadtxt, savetxt
-  use stdlib_experimental_error, only: assert
-  implicit none
+use stdlib_experimental_kinds, only: qp
+use stdlib_experimental_io, only: loadtxt, savetxt
+use stdlib_experimental_error, only: assert
+implicit none
 
-  character(:), allocatable :: outpath
+character(:), allocatable :: outpath
 
-  outpath = get_outpath() // "/tmp_qp.dat"
+outpath = get_outpath() // "/tmp_qp.dat"
 
-  call test_qp(outpath)
-  call test_cqp(outpath)
+call test_rqp(outpath)
+call test_cqp(outpath)
 
 contains
 
-  function get_outpath() result(outpath)
+    function get_outpath() result(outpath)
     integer :: ierr
     character(256) :: argv
     character(:), allocatable :: outpath
 
     call get_command_argument(1, argv, status=ierr)
     if (ierr==0) then
-      outpath = trim(argv)
+        outpath = trim(argv)
     else
-      outpath = '.'
+        outpath = '.'
     endif
-  end function get_outpath
+    end function get_outpath
 
-  subroutine test_qp(outpath)
+    subroutine test_rqp(outpath)
     character(*), intent(in) :: outpath
     real(qp) :: d(3, 2), e(2, 3)
     real(qp), allocatable :: d2(:, :)
@@ -41,10 +41,9 @@ subroutine test_qp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._qp)))
-  end subroutine test_qp
+    end subroutine test_rqp
 
-
-  subroutine test_cqp(outpath)
+    subroutine test_cqp(outpath)
     character(*), intent(in) :: outpath
     complex(qp) :: d(3, 2), e(2, 3)
     complex(qp), allocatable :: d2(:, :)
@@ -59,7 +58,6 @@ subroutine test_cqp(outpath)
     call loadtxt(outpath, d2)
     call assert(all(shape(d2) == [2, 3]))
     call assert(all(abs(e-d2) < epsilon(1._qp)))
-  end subroutine test_cqp
-
+    end subroutine test_cqp
 
 end program test_savetxt_qp