Refactor the test

Author: certik

src/tests/loadtxt/test_savetxt.f90

@@ -4,18 +4,24 @@ program test_loadtxt
 use stdlib_experimental_error, only: assert
 implicit none
 
-real(dp) :: d(3, 2), e(2, 3)
-real(dp), allocatable :: d2(:, :)
-d = reshape([1, 2, 3, 4, 5, 6], [3, 2])
-call savetxt("tmp.dat", d)
-call loadtxt("tmp.dat", d2)
-call assert(all(shape(d2) == [3, 2]))
-call assert(all(abs(d-d2) < epsilon(1._dp)))
+call test1()
 
-e = reshape([1, 2, 3, 4, 5, 6], [2, 3])
-call savetxt("tmp.dat", e)
-call loadtxt("tmp.dat", d2)
-call assert(all(shape(d2) == [2, 3]))
-call assert(all(abs(e-d2) < epsilon(1._dp)))
+contains
+
+    subroutine test1()
+    real(dp) :: d(3, 2), e(2, 3)
+    real(dp), allocatable :: d2(:, :)
+    d = reshape([1, 2, 3, 4, 5, 6], [3, 2])
+    call savetxt("tmp.dat", d)
+    call loadtxt("tmp.dat", d2)
+    call assert(all(shape(d2) == [3, 2]))
+    call assert(all(abs(d-d2) < epsilon(1._dp)))
+
+    e = reshape([1, 2, 3, 4, 5, 6], [2, 3])
+    call savetxt("tmp.dat", e)
+    call loadtxt("tmp.dat", d2)
+    call assert(all(shape(d2) == [2, 3]))
+    call assert(all(abs(e-d2) < epsilon(1._dp)))
+    end subroutine
 
 end program