generalize tests

Author: perazz

test/specialfunctions/test_specialfunctions_gamma.fypp

@@ -1,10 +1,10 @@
 #:include "common.fypp"
-#: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
+#:set CI_KINDS_TYPES = INT_KINDS_TYPES + CMPLX_KINDS_TYPES
+#:set IDX_CMPLX_KINDS_TYPES = [(i, CMPLX_KINDS[i], CMPLX_TYPES[i], CMPLX_INIT[i]) for i in range(len(CMPLX_KINDS))]
+#:set IDX_REAL_KINDS_TYPES  = [(i, REAL_KINDS[i], REAL_TYPES[i], REAL_INIT[i]) for i in range(len(REAL_KINDS))]
 module test_specialfunctions_gamma
     use testdrive, only : new_unittest, unittest_type, error_type, check
-    use stdlib_kinds, only: sp, dp, int8, int16, int32, int64
+    use stdlib_kinds, only: sp, dp, xdp, qp, int8, int16, int32, int64
     use stdlib_specialfunctions_gamma, only: gamma, log_gamma, log_factorial,  &
                                              lower_incomplete_gamma,           &
                                              upper_incomplete_gamma,           &
@@ -18,7 +18,7 @@ module test_specialfunctions_gamma
 
     public :: collect_specialfunctions_gamma
 
-    #:for k1, t1 in R_KINDS_TYPES
+    #:for k1, t1 in REAL_KINDS_TYPES
     ${t1}$, parameter :: tol_${k1}$ = 1000 * epsilon(1.0_${k1}$)
     #:endfor
 
@@ -35,15 +35,15 @@ contains
                            test_logfact_${t1[0]}$${k1}$)                       &
         #:endfor
 
-        #:for k1, t1 in CI_KINDS_TYPES
+        #:for k1, t1 in CI_KINDS_TYPES[:-1]
             , new_unittest("gamma_${t1[0]}$${k1}$",                            &
                            test_gamma_${t1[0]}$${k1}$)                         &
             , new_unittest("log_gamma_${t1[0]}$${k1}$",                        &
                            test_loggamma_${t1[0]}$${k1}$)                      &
         #:endfor
 
         #:for k1, t1 in INT_KINDS_TYPES
-          #:for k2, t2 in R_KINDS_TYPES
+          #:for k2, t2 in REAL_KINDS_TYPES[:-1]
             , new_unittest("lower_incomplete_gamma_${t1[0]}$${k1}$${k2}$",     &
                            test_lincgamma_${t1[0]}$${k1}$${k2}$)               &
             , new_unittest("log_lower_incomplete_gamma_${t1[0]}$${k1}$${k2}$", &
@@ -59,7 +59,7 @@ contains
           #:endfor
         #:endfor
 
-        #:for k1, t1 in R_KINDS_TYPES
+        #:for k1, t1 in REAL_KINDS_TYPES[:-1]
             , new_unittest("lower_incomplete_gamma_${t1[0]}$${k1}$",           &
                            test_lincgamma_${t1[0]}$${k1}$)                     &
             , new_unittest("log_lower_incomplete_gamma_${t1[0]}$${k1}$",       &
@@ -124,7 +124,7 @@ contains
 
 
 
-    #:for k1, t1 in CI_KINDS_TYPES
+    #:for k1, t1 in CI_KINDS_TYPES[:-1]
 
     subroutine test_gamma_${t1[0]}$${k1}$(error)
         type(error_type), allocatable, intent(out) :: error
@@ -262,7 +262,7 @@ contains
 
 
     #:for k1, t1 in INT_KINDS_TYPES
-      #:for k2, t2 in R_KINDS_TYPES
+      #:for k2, t2 in REAL_KINDS_TYPES[:-1]
 
     subroutine test_lincgamma_${t1[0]}$${k1}$${k2}$(error)
         type(error_type), allocatable, intent(out) :: error
@@ -411,7 +411,7 @@ contains
 
 
 
-    #:for k1, t1 in R_KINDS_TYPES
+    #:for k1, t1 in REAL_KINDS_TYPES[:-1]
 
     subroutine test_lincgamma_${t1[0]}$${k1}$(error)
         type(error_type), allocatable, intent(out) :: error