extract desired kinds for local limited preprocessing

Author: jalvesz

src/stdlib_specialfunctions_gamma.fypp

@@ -1,6 +1,7 @@
 #:include "common.fypp"
-#:set R_KINDS_TYPES = REAL_KINDS_TYPES[0:2]
-#:set CI_KINDS_TYPES = INT_KINDS_TYPES + CMPLX_KINDS_TYPES[0:2]
+#:set R_KINDS_TYPES = [KT for KT in REAL_KINDS_TYPES if KT[0] in ["sp","dp"]]
+#:set C_KINDS_TYPES = [KT for KT in CMPLX_KINDS_TYPES if KT[0] in ["sp","dp"]]
+#:set CI_KINDS_TYPES = INT_KINDS_TYPES + C_KINDS_TYPES
 module stdlib_specialfunctions_gamma
     use iso_fortran_env, only : qp => real128
     use stdlib_kinds, only :  sp, dp, int8, int16, int32, int64

test/specialfunctions/test_specialfunctions_gamma.fypp

@@ -1,6 +1,7 @@
 #:include "common.fypp"
-#:set R_KINDS_TYPES = REAL_KINDS_TYPES[0:2]
-#:set CI_KINDS_TYPES = INT_KINDS_TYPES + CMPLX_KINDS_TYPES[0:2]
+#:set R_KINDS_TYPES = [KT for KT in REAL_KINDS_TYPES if KT[0] in ["sp","dp"]]
+#:set C_KINDS_TYPES = [KT for KT in CMPLX_KINDS_TYPES if KT[0] in ["sp","dp"]]
+#:set CI_KINDS_TYPES = INT_KINDS_TYPES + C_KINDS_TYPES
 module test_specialfunctions_gamma
     use testdrive, only : new_unittest, unittest_type, error_type, check
     use stdlib_kinds, only: sp, dp, int8, int16, int32, int64
@@ -21,9 +22,6 @@ module test_specialfunctions_gamma
     ${t1}$, parameter :: tol_${k1}$ = 1000 * epsilon(1.0_${k1}$)
     #:endfor
 
-
-
-
 contains
 
     subroutine collect_specialfunctions_gamma(testsuite)