fix test

Author: Cyril Gandon

test/specialfunctions/test_specialfunctions_gamma.fypp

@@ -89,36 +89,36 @@ contains
 
         ${t1}$, parameter :: x(n) = [0_${k1}$, 1_${k1}$, 2_${k1}$, 4_${k1}$,   &
                                      5_${k1}$, 100_${k1}$]
-        real(sp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
+        real(dp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
                                          4.78749174, 3.63739376e2]
 
         #:elif k1 == "int16"
 
         ${t1}$, parameter :: x(n) = [0_${k1}$, 1_${k1}$, 2_${k1}$, 4_${k1}$,   &
                                      7_${k1}$, 500_${k1}$]
-        real(sp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
+        real(dp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
                                          8.52516136, 2.61133046e3]
 
         #:elif k1 == "int32"
 
         ${t1}$, parameter :: x(n) = [0_${k1}$, 1_${k1}$, 2_${k1}$, 4_${k1}$,   &
                                      12_${k1}$, 7000_${k1}$]
-        real(sp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
+        real(dp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
                                          1.99872145e1, 5.49810038e4]
 
         #:elif k1 == "int64"
 
         ${t1}$, parameter :: x(n) = [0_${k1}$, 1_${k1}$, 2_${k1}$, 4_${k1}$,   &
                                      20_${k1}$, 90000_${k1}$]
-        real(sp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
+        real(dp), parameter :: ans(n) = [0.0, 0.0, 0.693147180, 3.17805383,    &
                                          4.23356165e1, 9.36687468e5]
 
         #:endif
 
         do i = 1, n
 
             call check(error, log_factorial(x(i)), ans(i), "Integer kind "     &
-                       //"${k1}$ failed", thr = tol_sp, rel = .true.)
+                       //"${k1}$ failed", thr = tol_dp, rel = .true.)
 
         end do
     end subroutine test_logfact_${t1[0]}$${k1}$