Only do qp in the test_*_qp.f90 tests

Author: certik

src/tests/loadtxt/test_loadtxt.f90

@@ -1,5 +1,5 @@
 program test_loadtxt
-use iso_fortran_env, only: sp=>real32, dp=>real64!, qp=>real128
+use iso_fortran_env, only: sp=>real32, dp=>real64
 use stdlib_experimental_io, only: loadtxt
 implicit none
 
@@ -37,10 +37,6 @@ subroutine print_array(a)
    do i = 1, size(a, 1)
     print *, a(i, :)
    end do
-  type is(real(qp))
-   do i = 1, size(a, 1)
-    print *, a(i, :)
-   end do
   class default
    write(*,'(a)')'The proposed type is not supported'
    error stop

src/tests/loadtxt/test_loadtxt_qp.f90

@@ -16,14 +16,6 @@ subroutine print_array(a)
 print *, "Array, shape=(", size(a, 1), ",", size(a, 2), ")"
 
  select type(a)
-  type is(real(sp))
-   do i = 1, size(a, 1)
-    print *, a(i, :)
-   end do
-  type is(real(dp))
-   do i = 1, size(a, 1)
-    print *, a(i, :)
-   end do
   type is(real(qp))
    do i = 1, size(a, 1)
     print *, a(i, :)

src/tests/loadtxt/test_savetxt.f90

@@ -1,5 +1,5 @@
-program test_loadtxt
-use iso_fortran_env, only: sp=>real32, dp=>real64 ,qp=>real128
+program test_savetxt
+use iso_fortran_env, only: sp=>real32, dp=>real64
 use stdlib_experimental_io, only: loadtxt, savetxt
 use stdlib_experimental_error, only: assert
 implicit none
@@ -10,7 +10,6 @@ program test_loadtxt
 
 call test_sp(outpath)
 call test_dp(outpath)
-!call test_qp(outpath)
 
 contains
 
@@ -62,21 +61,4 @@ subroutine test_dp(outpath)
     call assert(all(abs(e-d2) < epsilon(1._dp)))
     end subroutine
 
-    subroutine test_qp(outpath)
-    character(*), intent(in) :: outpath
-    real(qp) :: d(3, 2), e(2, 3)
-    real(qp), allocatable :: d2(:, :)
-    d = reshape([1, 2, 3, 4, 5, 6], [3, 2])
-    call savetxt(outpath, d)
-    call loadtxt(outpath, d2)
-    call assert(all(shape(d2) == [3, 2]))
-    call assert(all(abs(d-d2) < epsilon(1._qp)))
-
-    e = reshape([1, 2, 3, 4, 5, 6], [2, 3])
-    call savetxt(outpath, e)
-    call loadtxt(outpath, d2)
-    call assert(all(shape(d2) == [2, 3]))
-    call assert(all(abs(e-d2) < epsilon(1._qp)))
-    end subroutine
-
 end program

src/tests/loadtxt/test_savetxt_qp.f90

@@ -1,4 +1,4 @@
-program test_loadtxt
+program test_savetxt_qp
 use iso_fortran_env, only: qp=>real128
 use stdlib_experimental_io, only: loadtxt, savetxt
 use stdlib_experimental_error, only: assert