Skip to content

Commit 7c90998

Browse files
committed
extract desired kinds for local limited preprocessing
1 parent 575cccd commit 7c90998

File tree

2 files changed

+6
-7
lines changed

2 files changed

+6
-7
lines changed

src/stdlib_specialfunctions_gamma.fypp

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
#:include "common.fypp"
2-
#:set R_KINDS_TYPES = REAL_KINDS_TYPES[0:2]
3-
#:set CI_KINDS_TYPES = INT_KINDS_TYPES + CMPLX_KINDS_TYPES[0:2]
2+
#:set R_KINDS_TYPES = [KT for KT in REAL_KINDS_TYPES if KT[0] in ["sp","dp"]]
3+
#:set C_KINDS_TYPES = [KT for KT in CMPLX_KINDS_TYPES if KT[0] in ["sp","dp"]]
4+
#:set CI_KINDS_TYPES = INT_KINDS_TYPES + C_KINDS_TYPES
45
module stdlib_specialfunctions_gamma
56
use iso_fortran_env, only : qp => real128
67
use stdlib_kinds, only : sp, dp, int8, int16, int32, int64

test/specialfunctions/test_specialfunctions_gamma.fypp

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
#:include "common.fypp"
2-
#:set R_KINDS_TYPES = REAL_KINDS_TYPES[0:2]
3-
#:set CI_KINDS_TYPES = INT_KINDS_TYPES + CMPLX_KINDS_TYPES[0:2]
2+
#:set R_KINDS_TYPES = [KT for KT in REAL_KINDS_TYPES if KT[0] in ["sp","dp"]]
3+
#:set C_KINDS_TYPES = [KT for KT in CMPLX_KINDS_TYPES if KT[0] in ["sp","dp"]]
4+
#:set CI_KINDS_TYPES = INT_KINDS_TYPES + C_KINDS_TYPES
45
module test_specialfunctions_gamma
56
use testdrive, only : new_unittest, unittest_type, error_type, check
67
use stdlib_kinds, only: sp, dp, int8, int16, int32, int64
@@ -21,9 +22,6 @@ module test_specialfunctions_gamma
2122
${t1}$, parameter :: tol_${k1}$ = 1000 * epsilon(1.0_${k1}$)
2223
#:endfor
2324

24-
25-
26-
2725
contains
2826

2927
subroutine collect_specialfunctions_gamma(testsuite)

0 commit comments

Comments
 (0)