support of fypp for test_to_number

Author: jvdp1

test/string/CMakeLists.txt

@@ -3,6 +3,7 @@
 # Create a list of the files to be preprocessed
 set(fppFiles
     test_string_assignment.fypp
+    test_string_to_number.fypp
 )
 
 fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)
@@ -14,4 +15,5 @@ ADDTEST(string_match)
 ADDTEST(string_derivedtype_io)
 ADDTEST(string_functions)
 ADDTEST(string_strip_chomp)
+ADDTEST(string_to_number)
 ADDTEST(string_to_string)

test/string/test_string_to_number.f90 renamed to test/string/test_string_to_number.fypp

@@ -1,5 +1,5 @@
 module test_string_to_number
-    use iso_fortran_env, only: sp=>real32, dp=>real64, qp=>real128
+    use stdlib_kinds, only: sp, dp, qp
     use stdlib_str2num
     use testdrive, only : new_unittest, unittest_type, error_type, check
     implicit none
@@ -14,6 +14,9 @@ subroutine collect_string_to_number(testsuite)
         testsuite = [ &
             new_unittest("to_float", test_to_float), &
             new_unittest("to_double", test_to_double) &
+#:if WITH_QP
+            , new_unittest("to_quadruple", test_to_quadruple) &
+#:endif
             ]
     end subroutine collect_string_to_number
 
@@ -215,6 +218,7 @@ logical function ucheck(s)
         end function
     end subroutine
 
+#:if WITH_QP
     subroutine test_to_quadruple(error)
         use stdlib_str2num
         type(error_type), allocatable, intent(out) :: error
@@ -313,6 +317,7 @@ logical function ucheck(s)
             end if
         end function
     end subroutine
+#:endif
 
 end module test_string_to_number
 
@@ -340,4 +345,4 @@ program tester
         write(error_unit, '(i0, 1x, a)') stat, "test(s) failed!"
         error stop
     end if
-end program
+end program